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1. Introduction 

1 .1 . What is Matchmaker? 

Matchmaker provides a mechanism for declarativcly defining a procedural interface for message-based 
communication between processes. This type of procedural interface to message-based communication is 
usually called a remote procedure call. Remote procedure calls in Accent can involve processes written in 
different languages; Matchmaker supports this capability. Once an interface has been declared, Matchmaker 
may be used to generate procedures for sending and receiving messages between processes written in any of 
the supported languages. Matchmaker does all the work of appropriately packing the procedure arguments 
into messages and extracting incoming procedure arguments from message fields. 

Matchmaker allows a programmer to write a server process and declare the types of all data to be exchanged 
between the server and its client processes. Based on those types, procedural interfaces arc declared for 
sending data between processes in messages. A client process would call a Matchmaker-generated procedure 
to make use of a server facility. This procedure would pack the procedural parameters into a message and 
send the message to the server process. The server process would receive the message, provide its service, and 
pack return data into a message to be sent back to the client process. The client process would return from the 
original procedure call with the data sent back from the server. Remote procedure call interfaces simplify and 
increase the reliability of writing message based code. 

1.2. Example 

In PERQ Pascal, to send a message to a server containing a 32-bit integer and a port, a hand coded program 
like this is necessary: 
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Function SendIt(ServPort : Port; I : Long; 
P : Port ) : GeneralReturn; 
type 

MyMessage = record 



end; 



head 

IPCNam2 

Arg2 

IPCNam3 

Arg3 



Msg; 

TypeType; 

Long; 

TypeType; 

Port; 



var 



MyMsg 



MyMessage; 



begin 

with MyMsg. head do 
begin 

SlmpleMsg : s false; 
MsgSize := WordS1ze(MyMsg)*2; 
MsgType := NORMALMSG; 
RemotePort := ServPort; 
LocalPort := ReplyPort; 
ID := 10000; 
end; 
with MyMsg do 
begin 

IPCNam2.LongInteger := #2000220002; 
Arg2 := I; 

IPCNam3.LojigInteger :» #2000220006; 
Arg3 : a P; 
end; 
Sendlt : a Send(MyMsg. head, 0, WAIT) ; 
end; 



An equivalent piece of code could be generated with these Matchmaker declarations: 
Interface foo = 10000; 

Message Sendlt( : port; I : Long; P : Port) : GR_Va1ue; 
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2. Overview 

This chapter describes what the Matchmaker language can do and how it works. 

2.1. What Does It Do? 

Matchmaker, a specialized compiler, accepts its own language and produces code for multiple target 
"machines". The target "machines" for Matchmaker code generators arc standard programming languages: 
C, Lisp, Pascal. 

The result of a compilation is source code for each target language. This code implements the same message 
interface to the declared service, independent of the language with which it will be used. 

2.2. A Declarative Language for Data Structures 

Matchmaker defines a set of data type primitives and constructors for declaring types and values and a set of 
rules for representing these declared types. For any Matchmaker type, the Matchmaker code generator for 
each language can generate a native type declaration for the desired representation. 

Any data types that are to be used by more than one language should be declared in the Matchmaker 
language. Then Matchmaker can be used to generate the appropriate types for each language. 

2.3. A Declarative Language for Remote Procedure Calls 

Matchmaker simplifies message passing by providing a set of message-based procedural linkages between 
processes. A number of classes of remote procedures can be declared. There are enough to cover almost all 
interactions between cooperating processes. 

2.4. Goals 

The main goals of Matchmaker are: 

1. to provide a self-contained language for specifying message level interfaces between cooperating 
Accent processes; 

2. to provide a language rich enough to express any data structure that can be both efficiently 
represented in a message and reasonably represented in all target languages; and 

3. to generate efficient code. 
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3. General Language Structure 

3.1. Lexical Structure 

Identifiers Identifiers are represented as a string of letters, digits, and underscores. The first character 

may not be a digit. Case of identifiers is preserved as in the declaration, but identifiers are 
matched with case folded. 

Integers Decimal integers are represented as a string of decimal digits. Octal integers are 

represented as a '#' character followed by a string of octal digits. 

Strings Character strings are enclosed in double quotes (""). The literal double quote is 

represented by two of them. Strings cannot span lines. 

Characters Character constants are surrounded by single quotes("). The literal single quote is 

represented by a string of four single quotes. 

Comments Comments may be introduced at any lexical break with the exclamation point character (!) 

and continue to the end of the line. 



3.2. Kinds of Matchmaker Specifications 

There are two kinds of Matchmaker specification files: Types and Interface. 

3.2.1 . Types specifications 

Types specifications contain data structure declarations, but no code declarations: 

Types <SpecificationName>; 

where <SpccificationName> is an identifier for the specification. A Types specification must end with the 
keywords End Types. 

3 2 2 !ntPrf^f Q Grxo/^i-fi^p+iririQ 

Interface specifications contain data structure declarations and code (call) declarations: 
Interface <SpecificationName> = <MsgIDbase> ; 

where: 

• <SpecificationName> is an identifier for the specification. 

• <MsgIDbase> is an expression that names the message id that is to be allocated to the first call 
declared. 
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Interface specifications must end with the keywords End Interface. 

3.3. Order of Declarations 

All Matchmaker source files (.mm) must have declarations in this order: 

1. Declare Interfaces or Types: Give name of specification, and, for Interface declaration, message 
id origin. Required. 

2. Declare Options: Give values for various options. Optional 

3. Declare Data: Can be Constant, Type, or Use declarations. Optional. 

4. Declare Calls: Used for declaring message-based calls. Required for Interface specifications; not 
* allowed for Types specifications. 

5. End Interface or End Types: End Interface for Interface specifications, or End Types for Types 
specifications. Required. 

3.4. Expressions 

Typed constant values are used in many different contexts throughout the Matchmaker language. Anywhere 
a literal constant (such as #400, "Carp", or 'a') can be used, a compile-timc constant expression can also be 
used. Since all Matchmaker expressions arc evaluated at the time the specification is compiled, compilc-time 
constant expressions will be referred to as "expressions". 

3.4.1. Primitive expressions 

The primitive building blocks for Matchmaker expressions are: 

Literals Any integer, string, or character literal 

Boolean Literals The prc-declared identifiers "True" or "False" 

Constant Names The identifier for any value declared in a "Constant" declaration 

Enumeration Names 

The identifier for any element of an enumerated type 

3.4.2. Expression operators 

The operators for combining expressions, in decreasing order of precedence are: 

( ... ) Specify evaluation order * / Mod 

Multiplication, Division, Modulus + - 

Addition, Subtraction (Either may be unary) = <> 

Equal, Not equal >>=<=< 

Order operators Not 

Boolean negation And 

Conjunction Or 

Disjunction 
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4. Data Declarations 

This chapter will cover the means of declaring typed values and data types in Matchmaker specifications. 

4.1. Constant Declarations 

Symbolic constant values may be declared to Matchmaker using the Constant keyword, followed by a list of 
declarations of the form: 

Name = Expression ; 

4.2. Built-in Constants 

The two boolean values True and False arc pre-declarcd in every Matchmaker specification. Their 
declarations arc equivalent to the declarations: 

Constant 
True is the same as = 0; 
False is the same as 1 = 0; 

4.3. Type Declarations 

Named types may be declared to Matchmaker using the Type keyword, followed by a list of declarations of 
the form: 

Name = Type Specification ; 

Type Specification may either be a built-in data type, a previously declared type name, or a new type 
definition. For more information on new data type definition refer to the next chapter. 

4.3.1. Examples 

Some examples of Type declarations are: 

Type 

Integer ■ Short; 

Bit23 ■ uns1gned[23]; 

Complex ■ 
record 

Re : Real; 

Im : Real; 
end record; 

NewBoolean a (No, Yes); 

Type 

Fi1e_Data ■ array [*] of Byte; 
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NOTE: * is the token for a variable-sized array. 

4.3.2. Built-in types 

Matchmaker provides several types and classes of types which arc pre-declarcd for each specification. They 
are: 

Boolean A one bit logical quantity. 

Character An eight bit character type. 

Signed[n] An n bit signed integer, n defaults to 16 if the [n] is not specified. 

Unsigned[n] An n bit unsigned integer, n defaults to 16 if the [n] is not specified. 

n .. m A subrange type of the integers n to m inclusive. 

PERQ_String[n] An n byte string prefixed by a length byte and padded to a 16-bit boundary, n defaults to 
80 if [n] is omitted. 

Port, Port.Send, Port.Receive, PortOwnership, Port. All 

Message communication ports, with associated port rights. Port and Port_Send are 
synonyms. 

Real A 32 bit IEEE floating point numeric type. 

Byte A prc-declared 8 bit unsigned integer type. 

Short A pre-declared 16 bit signed integer type. 

Long A pre-declared 32 bit signed integer type. 

4.4. Use Declarations 

The Use declaration allows one Matchmaker specification to use data structure declarations from another. 
Constant, Type, and Use declarations can appear in any order with respect to one another. 

4.4.1. Syntax 

The syntax for the Use declaration is the keyword Use followed by specifications of the form: 

InterfaceName from "FileName" ; 

where InterfaceName is the declared interface name in the specification to be used by the current 
specification, and FileName is the filename for that specification without the ".mm" extension. (Language- 
specific declaration file names will also be derived from FileName). 
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The "use" chain is recursively expanded. In other words, if an interlace A uses declarations from interface B, 
and B uses interface C, then A may also use declarations from C. 



4.4.2. Examples 

Some examples of Use declarations are: 

Use 

Foo from "Foo"; 

Shoes from "Shoes"; 
Use 

Acclnt from "Accent"; 
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5. Defining New Data Types 



Matchmaker allows construction of new data types from existing ones. Matchmaker is a language for 
specifying message-based interfaces between processes, therefore only those types that can be efficiendy sent 
in messages arc supported. 

5.1. Record Types 

A Record type is a group of one or more "fields" made up of an identifier and an associated data type. 

5.1.1. Syntax 

A Record type specification contains the keyword Record and one or more fields of the form: 

FieldName : FieldType ; 

followed by the keywords End Record. Each FieldName must be a valid identifier, and each FieldType must 
be a declared type name or built-in type= 

5.1 .2. Packed record types 

"Packed" record types are like ordinary record types, except that attempts arc made to "pack" several small 
fields together where possible, instead of always aligning them on 16-bit boundaries. The syntax for packed 
record types is the same as that for ordinary record types, except that the type keyword is "Packed Record." 



5.1.3. Examples 

Some examples of Record specifications are: 
Type 



Couple ■ 






record 






Male : 


Person; 


Female : 


Person; 


end record; 






T1me_Rec s 






packed record 




Hours : 


.. 


23 


Minutes : 


.. 


59 


Seconds : 


.. 


59 


end record; 
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5.1 .4. Restrictions 

Due to message passing restrictions, record field types must not be port types, pointer types, variable-sized 
array types, or union types. 

5.2. Array Types 

An Array type is a collection of some number of elements, all of the same data type. The number of elements 
may be fixed or may vary. 

5.2.1. Syntax 

An Array type specification is of the form: 

Array [size] of ElcmentTypc 

where Element! ype is a declared type name or built-in type, and size is either the token * for a variable-sized 
array or an integer expression giving the number of elements for a fixed-size array. 

5.2.2. Packed array type 

The "packed" array type is like the "array" type, except that attempts are made to "pack" several small 
elements together where possible, instead of always aligning them on 16-bit boundaries. The syntax for the 
"packed array" type is the "Packed Array" keyword. 

5.2.3. Examples 

Some examples of Array specifications are: 
Type 

Triple a array [3] of Note; 

Type 

Byte_Array = packed array [*] of Byte; 

5.2.4. Restrictions 

Array elements must not be of pointer, variable-size array, or union types. Variable-size arrays can be 1 
declared; however, only pointers to the arrays can be directly passed in messages, along with a size parameter 
giving the number of elements being passed. The number of elements must be positive (greater than zero) for 
fixed-size arrays. 
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5.3. Enumeration Type 

The Enumeration type provides a means of naming a set of related values and grouping those values together 
into a new type. The value of each name, if not specified, is provided by Matchmaker, beginning with zero 
and incrementing by one for each successive name. 

5.3^.1. Syntax 

An Enumerated Type specification consists of a pair of parentheses enclosing a comma-separated list of 
enumeration elements of either the form: 

ElementName 

or: 

ElementName = ElementValue 

ElementNames without specified values are assigned sequential element values. Both kinds of elements may 
be mixed, as long as no value or name is duplicated. 

5.3.2. Examples 

Some examples of Enumeration specifications are: 

Type 

Tri_State ■ (Open, Closed, Floating); 

Return_Va1ues a 

( 

OK - 1, 
Information, 
Take_Heed, 
Warning a 99, 
Error = 1000, 
Fatal_Error a 10000, 
Interna1_Error a -1 

); 

5.3.3. Restrictions 

All enumeration type element values must be expressible as 16-bit signed integers. 
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5.4. Pointer Types 

Pointer types allow Matchmaker to pass a message by reference instead of directly including it into the 
message body. This is useful when passing variable-size arrays between processes, and occasionally for passing 
large fixed-size structures. (Do not use pointers to small structures, since at least one page of data is always 
passed regardless of the actual size.) 

5.4.1. Syntax 

A Pointer type specification is of the form: 

t BascType 

i 
where BaseType is a valid type specification. 

5.4.2. Examples 

Some examples of Pointer specifications are: 

Type 

Bytes ■ t Byte_Array; 

Ports ■ t array [*] of Port; 

Block_Ptr ■ t Array [B1ock_S1ze] of B1ock_Elts; 

5.4.3. Restrictions 

Due to message passing restrictions, pointer base types must not be pointer types or union types. 

5.5. Union Types 

Union types provide a mechanism for passing data for which the ipc type number cannot be determined until 
run-time. This is useful only when the data is sometimes of a port type and sometimes a different port type, 
or is unstructured data. Only use a Union type when absolutely necessary. 

5.5.1. Syntax 

A Union type specification consists of a union head, of the form: 

Union <TagType> of 
followed by one or more fields of the form: 
Tag Value : ( FicldName : FieldType ) 
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terminated by the keywords End Union. The TagTypc must be an integer, character, boolean, or 
enumeration type. Each Tag Value must be an expression of type TagTypc. Each FieldName must be a valid 
identifier, and each FicldTypc must be a declared type name or built-in type. 



5.5.2. Examples 






Some examples of Union specifications are: 




Type 






PortRights = 






union <integer> of 






TypePtOwnership 


(PtO: 


Port_Ownership) ; 


TypePtReceive 


(PtR: 


Port_Receive) ; 


TypePtAll 


(PtA: 


Port All); 


TypePt 


(Pt: 


Port); 


end union; 







Port_Or_Index a 
union <boolean> of 
False : (Port_Index 
True : (Port_Value 
end union; 



long); 
port); 



5.5.3. Restrictions 

Due to message passing restrictions, union field types must not be pointer types, variable-sized array types, or 
union types. 
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6. Messages/Remote Procedure Calls 

Matchmaker provides several different kinds of calls that can be made between processes. These calls vary in 
the way errors arc handled and in the directions in which the messages are sent. 

A Matchmaker call is declared in a manner similar to Pascal or Ada procedures and functions: the 
introductory keyword specifics the class of call being declared, the call name is given, and then a parameter 
list. The call is usually terminated by a type or keyword giving the return value for the call. 

6.1 . Classes of Matchmaker Calls 

For each of the individual Matchmaker declarations, CallNamc is an identifier giving the name of the 
message-based call being declared, and ArgList refers to a semicolon-separated list of call arguments. 

6.1.1. Remote.Procedure calls 

Rcmote.Procedure calls generate code that allows a user process to send request parameters to a server and to 
receive rcpiy paiam^.tcrs i^acn iiom tiv Sv>± Tcr. 

Rcmote.Procedure declarations are of the form: 

Remote.Procedure CallName ( ArgList ) : ValueType ; 

If ValueType is the keyword GR_Value then CallName is a function with result type GencralReturn 
(signed[16]). This is a success/error code. If any errors occur sending or receiving the messages for CallName, 
then CallName will return the send or receive error code. 

If ValueType is the keyword No_Value then CallName is a procedure that does not return a value. If any 
errors occur sending or receiving the messages for CallName, tiicn Matchmaker signals the send or receive 
error code in a language-dependent response. 

If ValueType is neither GR.Value or No.Value then it must be a type name for a result type to be returned by 
CallName. In this case, CallName is a function returning a value of type ValueType. ValueType cannot be a 
variable-sized array or a union type. If any errors occur sending or receiving the messages for CallName, then 
Matchmaker signals the send or receive error code in a language-dependent response. 

A RemotePort argument is required for all Remote.Procedure calls. 
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6.1.2. Message calls 

Message calls generate code for a user process that sends a single message to a server without a reply. 

Message declarations are of the form: 

Message CallNamc ( ArgList ) : ValueType ; 

If ValueType is the keyword GR_Valuc then CallName is a function with result type GencralReturn 
(signed[16]) on the user side and a valueless procedure on the server side. When an error occurs sending the 
message for CallNamc, then CallName returns the send error code to the user. Otherwise it returns Success. 

If ValueType is not GRJValuc, then it must be the keyword No_ Value. When ValueType is No.Value, then 
CallName is a procedure that does not return a value. If any errors occur sending the message for CallName, 
then Matchmaker signals the send error code in a language-dependent response. 

A RemotePort argument is required for all Message calls. Only one-directional "In" parameters are allowed 
for Message calls (see 6.2, Call Arguments). 

6.1 .3. Serve r.Message calls 

Servcr_Messagc calls generate code for a server process that sends a single message to a user process. 

Server.Message declarations are of the form: 

Server.Message CallName ( ArgList) : ValueType ; 

If ValueType is the keyword GR_Value then CallName is a function with result type GencralReturn 
(signed[16]) on the server side and a valueless procedure on the user side. If any errors occur sending the 
message for CallName, CallNamc returns the send error code to the server. Otherwise it returns Success. 

If ValueType is not GR.Value, then it must be the keyword No_Value. When ValueType is No.Value, then 
CallName is a procedure that does not return a value. If any errors occur sending the message for CallName, 
then Matchmaker signals the send error code in a language-dependent response. 

A RemotePort argument is required for all Server.Message calls. Only one-directional "In" parameters are 
allowed for Server.Message calls. 
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6.1 .4. Alternate_Reply calls 

Altcrnatc_Rcply calls generate code for a server process that sends a reply message back to a user process in 
response to a Rcmote_Procedurc that was different than expected. Alternate_Rcply messages return values 
from exception conditions that occur during execution. 

Altcrnatc.Reply declarations forms are: 

Alternate.Reply CallName ( ArgList ) ; 

Altcrnate.Reply CallName ; 

CallName is a language-dependent exception procedure that does not return a value. 

A RemotcPort argument is illegal for all Alternate.Reply calls. Only one-directional "In" parameters are 
allowed for Alternate.Reply calls. 

6.2. Call Arguments 

The Matchmaker call argument is: 

ArgUsage ArgName : ArgType 

where ArgUsage is a keyword specifying the argument to be used. ArgName is an identifier for the argument, 
and ArgType is the type of the argument. 

ArgUsage can specify a direction for a data argument (for example, ArgUsage might be the keyword InOut), 
or it can be a keyword giving the special usage for the argument (such as the RemotcPort keyword). 

6.2.1 . Data arguments 

Most arguments to Matchmaker calls provide data that is passed between processes. Data arguments are of 
the form: 

ArgDirection ArgParms : ArgType 

6.2.1 .1 . Argument directions 

ArgDirection specifies die direction(s) in which the data is sent It may be one of In, Out, InOut, or may be 
omitted. 

In arguments are only sent from the process initiating a call to the process handling the call. 
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Out arguments arc only sent from the process handing a call back to the process that initiated a 

call. 

InOut arguments arc sent in both directions. 

If ArgDircction is omitted, then In is assumed. Note: Some Matchmaker calls cannot accept Out or InOut 
arguments, because they specify single-directional exchanges. 

6.2.1 .2. Normal argument types and parameters 

ArgType is the name of a built-in or declared Matchmaker type appropriate for message passing. New types 
may not be implicitly declared when declaring calls. 

When ArgType does not specify a variable-size array or a union type, then ArgParms is an identifier 
corresponding to that argument. This is used for the corresponding target language parameter name for 
languages that require them. 



An example of simple call arguments is given by the declaration 

Remote_Proc9dure( 
RemotePort Server 
In Put 

Out Get 
InOut Both 

Implied 

) 



port; ! (see 6.2.2) 

long; I In parameter 

long; I Out parameter 

boolean; ! InOut parameter 

character 1 In parameter 



Gr_Value; 

6.2.1 .3. Variable-size array type parameters 

When ArgType is the name for a pointer to a variable-size array (variable-size arrays cannot be passed; only 
pointers to them can be passed), then ArgParms must specify two parameter names. One is used to point to 
the array, and the other is used to dynamically indicate the number of elements in the array that is passed. 

ArgParms for dynamic arrays can either be of the form: 

PointerlD [ CountID ] 
or 

[ CountID ] PointerlD 

The first is preferred. The only difference between the two forms is the order in which target language 
parameters for the pointer and count values are passed. 
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For example, the following Matchmaker declaration fragments: 

type 

ByteVector = t packed array [*] of byte; 

Message Catt1e( 

: port; I (see 6.2.2) 
in Bytes [Byte_Count] : ByteVector I Dynamic array argument 
) : GR_Va1ue; 

would compile into the following C fragments: 
typedef Byte ByteVector[]; 

GeneralReturn Catt1e(ServPort , Bytes, Byte_Count); 
Port ServPort; 

BytoVector Bytes; /* Pointer to array */ 

long Byte_Count; /* Element count */ 

{ 
}" 

6.2.1 .4. Union type parameters 

When ArgType is the name for a union type, the ArgParms must specify two parameter names. One is the 
union tag (selector) value, and the other one passes the selected union field data. 

Form of the ArgParms for union types: 

DatalD < TaglD > 
or 

< TaglD > DatalD 

The difference between the two forms is the order in which target language parameters for the field data and 
tag values are passed. 

For example, the following Matchmaker declaration fragments: 
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type 



Port_Or_Index a 
union <boolean> of 
False : (Port_Index 
True : (Port_Value 
end union; 



long); 
port); 



Remote_Procedure Wow( 

: port; 
out PortOrlndex <Wh1ch0ne>: Port_Or_Index 
) : No_Value; 



! (see 6.2.2) 
Union argument 



would compile into the following Pascal fragments: 

type 

Port_Or_Index ■ 

record case Boolean of 

False : (Port_Index : Long); 
True : (Port_Value : Port); 
end; 



procedure Wow( 

ServPort 
var PortOrlndex 
var WhlchOne 



port; 

Port_Or_Index; { Data value } 

Boolean); { Tag value } 



6.2.2. Special arguments 

Several Matchmaker calls can dynamically provide information about how the messages implementing the 
call are sent and received. The syntax for each of them is of the form: 

SpecialUsage ArgName : ArgType 

The ArgName is an identifier for a parameter, and ArgType is the type name for that parameter. Specific 
ArgType values are required for each value of SpecialUsage. 

SpecialUsage keywords: 

RemotePort Specify port to which request is sent. Required for all message classes except for 

Alternate.Reply. ArgType must be a port. 

LocalPort Specify port to which reply is sent. ArgType must be a port. 

MsgType Specify message type value for request message. Normal values are NormalMsg and 

EmergMsg (from Acccnt.mm). ArgType must be an integer. The default is Normal. 

ReplyType Specify message type value for reply message (for Rcmotc_Procedurc declarations). 

ReplyType is implicitly an Out parameter on the server side of an interface. Normal values 
are NormahVlsg and EmergMsg (from Accent.mm). ArgType must be an integer. The 
default is Normal. 
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ScndOption Specify tlic send option field for the request message. Normal values are Wait, DontWait, 

and Reply (from Acccnt.mm). ArgTypc must be a 16-bit integer. The default is Wait. 

Scnd.Timeout Specify the send timeout value for the request message. Values are in milliseconds, and a 
zero value means to wait indefinitely. ArgTypc must be a signed 32-bit integer. The 
default is Wait.Forcvcr (0). 

Rcceive.Timeout May be used to specify the receive timeout value for the reply message. Values are in 
milliseconds. A zero value means to wait indefinitely; -1 means return immediately if no 
message waiting. ArgTypc must be a signed 32-bit integer. The default is Wait_Forever (0). 

A special abbreviation specifics the RcmotcPort argument for a Matchmaker call. If both SpecialUsage and 
ArgName are omitted, the call is interpreted the same as: 

RemotePort ServPort : ArgType 

6.3. Defaults and Options 

Rather than passing special arguments to calls to specify every possible detail for every call, Matchmaker 
provides a set of defaults that cover most of the normal cases. These can generally be specified in one of two 
ways. Either the global default can be modified, or the default can be changed for a given message 
declaration. 

6.3.1 . Modifying global call defaults 

The defaults for all messages in an interface can be changed using Options declarations. Options declarations 
must come before any data structure (Constant, Type, or Use) declarations. 

An Options declaration consists of the Options keyword, followed by one or more declarations of the form: 

OptionKey = Option Value ; 

(See the next chapter for more on Options declarations.) 

6.3.2. Modifying local call defaults 

The defaults for any particular call can be changed by inserting one or more clauses of the form: 

, OptionKey = Option Value 
before the semicolon (;) terminating the call declaration. Such a clause is only effective for that specific call. 
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6.3.3. Listing of defaults 

The set of call defaults which can be changed arc a subset of the call special arguments. A list of the keys, 
defaults, and legal values are: 

Key Default Legal Values 

MsgType NormalMsg(= 0) 

NormalMsg, EmcrgencyMsg (0, 1) ReplyType 

NormalMsg (= 0) NormalMsg, EmcrgencyMsg (0, 1) Scnd.Option 

Wait ( = 0) Wait, DontWait, Reply (0..2) Send Timeout 

(Infinity) 32-bit signed integers 

(in milliseconds) Rcccive.Timeout 

(Infinity) 32-bit signed integers 

(in milliseconds) 
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7. Options and Message ID Declarations 

7.1. Options Declarations 

The Options declaration is used to change the default values of Matchmaker parameters. Options declarations 
must come before any data structure (Constant, Type, or Use) declarations. 

Options declarations only affect the specification in which they occur. Another specification that references 
the specification containing the Options declarations (for example, by a Use declaration) is not affected by the 
declarations. 

7.1.1. Syntax 

An Options declaration consists of the Options keyword and one or more declarations of the form: 

OptionKey = Option Value ; 

7.1 .2. Non-call argument options 

Options that use special arguments were listed in the previous chapter. Other options are explained here: 

* 

Protocol.Version Declare version number of code generator algorithm to be used. Currently only version 1 
is supported. 

Local.Ports Declare maximum number of ports that are allocated on the user side for outstanding calls 

to the server. A value of requires all calls to specify a LocalPort special parameter. A 
value of * specifies no limit. Default is 1. 

Ports.Backlog Backlog value for any Local_Ports allocated. Default is (requesting Accent default 
Backlog value). 



7.1.3. Examples 

Options 

Prctoco'!_V9r*sion = 1; 

Loca1_Ports = 5; 

Receiv8_Tim80ut ■ 100; ! Be impatient with it 



7.2. Message ID Declarations 

Calls are normally assigned message ID numbers sequentially, in ascending order from the declared Interface 
ID number. Reply IDs for RcmoteJProcedure, Alternate.Rcply, and Servcr.Message calls have 100 added to 
them, to distinguish them from request IDs. 

There are instances, however, where it might be necessary to assign the IDs in another fashion. Matchmaker 

4 September 1984 



MATCIIMAKHR: THLi ACCLNT RllMOTI- CM.L PROCLDURH I ANGUAGH - 26 

provides two declarations strictly for manipulating the message ID numbers that arc assigned to declared 
calls. 

7.2.1. SkipJD declaration 

The SkipJD declaration increments the message ID counter exactly as a call declaration would. The primary 
purpose of the SkipJD declaration is to replace an obsolete call declaration in an interface file. 

The syntax for Skip.ID is: 

Skip.ID ; 

7.2.2. NextJD declaration 

The NextJD declaration is used to directly set the message ID counter to a new value. The new value should 
be within 100 of the initial value. 

The syntax for NextJD is: 

NextJD = NewValue ; 

where NewValue is an integer exp'ression. 
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8. Using Matchmaker 

This chapter describes how to use Matchmaker and code generated by Matchmaker. 

8.1 . Using a Generated Interface 

Matchmaker only generates code that allows parameters for kinds of calls to be passed between User and 
Server processes. The code implementing the calls and any code that uses the calls must be hand-coded. 

This section describes the specifics of writing code that is called from Matchmaker procedures and code that 
calls Matchmaker procedures. This section assumes that an interface called Prog has been declared. 

For a detailed example, please refer Section 11. 

8.1 .1 . Using Matchmaker user code 

The following applies to code written for the user side of a Matchmaker interface: 

• The procedure InitProg must be called before any other procedure from module ProgUser (user 
side code) to initialize ProgUser. 

• Any Message or Remote_Procedure can be called directly using appropriate target language 
calling conventions. 

• Code must be written by the user for any Alternatc_Reply calls declared to handle the 
Alternate.Reply and take appropriate actions when they occur. 

• The ProgDispatcher function may be called to decode parameters and to call the function 
implementing any Scrver_Message procedures declared in Prog. ProgDispatcher is passed a 
message. It returns true for messages it recognizes, and false for those it does not. 

• Code must be written by the user for each declared Scrver_Message call that takes appropriate 
action for the Server_Message. These routines are called by the ProgDispatcher function for 
appropriate messages. 

8.1 .2. Using Matchmaker server code 

The following applies to code written for the server side of a Matchmaker interface: 

• The implemcntor must write code to receive the message and then call the ProgServer function to 
decode message parameters and to call the function implementing any Message or 
RemoteProcedure procedures declared in Prog for received messages. ProgServer must be passed 
both the message received and a reply message. It returns a true for messages it recognizes and 
false for those it does not. The reply message is sent unless the RetValue field of the call is 
NOREPLY. 

• The implemcntor must write code for each declared Message and the declared Remote_Proccdure 
call that implements the call. These routines are called by the ProgServer function for appropriate 
messages. 

• An Alternate_Reply message can reply to a Remote_Procedure request by signaling the 
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Altcrnatc_Rcply flag with appropriate parameters. Construct an alternate reply message for 
ProgScrver to return. 

• Any Scrvcr_Mcssagc may be directly called via appropriate target language calling conventions to 
pack and send the message. 



8.2. Matchmaker File Names 

The source file name for a Matchmaker specification named Prog should be: 

Prog.mm 

If a set of language-specific declarations for the specification are needed for a given language that normally 
uses the extension .ext, then those declarations should be in the file: 

Prog.mm-ext 

When compiled for a language using extension .ext, Matchmaker will then normally produce the files: 
o ProgDcfs.ext (Data structures) ProgUscr.ext (User side code) ProgServer.ext (Server side code) 

For example, the Time interface uses the following files: 
Timcmm Matchmaker source 

TimcDefs.pas Pascal types for time TimeUser.pas 

Pascal user interface to time server TimcServer.pas 

Pascal server interface for time server (The Time server is implemented in Pascal) 

Time.h C types for time TimeUser.c 

C user interface to time server 

TimeDefs.slisp Accent Lisp types for time TimeMsgDefs 

Accent Lisp types for time messages TimeUser.slisp 
Accent Lisp user interface to time server TimcUInit 
Load-time initialization forms for the time interface 

If language-specific declarations are needed, they are specified in the files: 

• Time.mm-pas (Pascal-specific declarations) Time.mm-c (C-specific declarations) Time.mm-slisp 
(Accent Lisp-specific declarations) 

Information specific to each language is discussed in Section 10. 



4 September 1984 



MATCHMAKER: Till- ACCHNT RI-MOTIv CALL PROCEDURE LANGUAGE - 29 

8.3. Matchmaker Command Line Syntax 

Invoke Matchmaker with the command line: 

Matchmaker FileName -Langl = Optl ... -LangN=OptN 

vyhere FileName is the name of the specification file to be compiled without the .mm extension. The Lang 
names are currently members of the set Pascal, C, and Accent Lisp. The Opt values must be members of the 
set: 

All Generate all files for Lang Defs 

Generate Defs file for Lang User 
Generate User file for Lang Server 
Generate Server file for Lang NoUser 
Generate all but User file for Lang NoServer 
Generate all but Server file for Lang 

The order of switches and the filename does not matter. Unique abbreviations for both switches and options 
are accepted. 

Other switches are: 

Help Display information about Matchmaker Verbose 

Display progress information Quiet 
Do not display progress information Errorfile 
Generate a file of error messages NoErrorfile 
Do not generate a file of error messages Loop 
Allow additional specification files to be processed before exiting 
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9. A BNF for the Matchmaker Language 

The following is a BNF description of Che Matchmaker language. Conventions used arc as follows: 

• Literal tokens arc enclosed in double quotes (""). 

• Optional productions are enclosed in square brackets ([]). 

• Three periods (...) denote optional repetition. 

• A vertical bar (|) denotes choices between productions. 

• Braces ({}) enclose a group of required productions. 

• Parcns(()) enclose comments. 

9.1 . Interface and Options Definitions 



Interface 



Interface_Decl 

Types_Dec1 

Interface_Name 

Msg__ID_Base 

Rep1y_Base 

End_Interface 

End_Types 

Qptions_Dscl 



:;= Interf ace_Dec1 

[0ptions_Dec1]. . . 
[Data_Ded]. .. 
[Msg_Dec1]. . . 
End_Interface | 
Types_Decl 

[Options_Dec1]. . . 
[DataJDecl], .. 
End_Typss 

:* "Interface" Interf ace_Mame " a " 
Msg_ID_Base ";" 

■ "Types" Interf ace_Nama ";" 

■ Identifier 

a Integer_Constant 

» Integer_Constant 

a » End .. "interface" 

« "End" "Types" 

- "Options" {Option_Decl ";"}... 
(not yet implemented) 



Option_Decl ::- Msg_Options } Msg_Name_Options | 

Protocol_Options 

Msg_Name_Options ::* Msg_Name_Key "*" Identifier 

(not yet implemented) 



Msg_Name_Ke 



::« "Server_Prefix" | "User_Prefix" 



Protoco1_0ptions ::= "Protocol_Version" ■ Integer_Constant 

(not yet implemented) 
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9.2. Datatype Definitions 

Data_Decl ::= UseJDecl | Type_Dec1 | Constant_Decl 



Use_Decl 

S1ngle_Use 

Fne_Name 

Constant_Dec1 

S1ng1e_Constant 

Cons tan t_Name 

TypeJDecl 

Sin'gle_Type 

Type_Name 



= "Use" Single_Use... 

= Interface_Nams "From" File_Name ";" 

■ Str1ng_Constant 

= "Constant" Sing1e_Constant. . . 

■ Constant_Name "=" Constant_£xpr ";" 
= Identifier 

■ "Type" S1ngle_Type. . . 

- Type Name " = " Type_Spec1f 1cat1on 
["," Type_Option]... ";" 

: := Identifier 



Type_Spec1f1cat1on ::= Type_Name | Bu11t1n_Type j 
Array_Type | Record_Type JPointer_Type | 
Enumeration_Type | Un1on_Type 



Bu1lt1n_Type 
Integer_Type 

Subrange_Type 
Port_Type 

Str1ng_Type 



::» "Boolean" j "Character" | "Real" | 
Integer_Type | Str1ng_Type j Port_Type 

:: = "Unsigned" ["[" Integer_Constant "]"] | 
"Signed" ["[" Integer_Constant "]"] \ 
Subrange_Type | "Long" | "Short" | 
"Byte" 

::■ Integer_Constant ".." Integer_Constant 

::» "Port" | "Port_Send" | "Port_Rece1ve" | 
"Port_Ownership" | "Port_All" 

::» "PERQ_String" ["[" Integer_Constant "]"] 



Array_Type ::=» [Packing] "Array" "[" Array_S1ze "]" 

"Of" Type_Spec1f1cat1on 

Array_S1ze ::= Integar_Constant | "*" 

Packing ::■ "Packed" | "Unpacked" 
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Record_Type 
Record_Compon9nt 



[Packing] "Record" Record_Component. . . 
"End" "Record" 



Field.Identifier ":" Type_Specif ication ";" 



F1eld_Identifiep 

Pointer_Type 

Enumerat1on_Type 



= Identifier 

= "t" Type_Specif1cat1on 

= "(" Enum_List ")" 

Enum_L1st ::= Impl1cit_Enum_List | Explicit_Enum_List 

Implicit_Enum_List :: = Enum_Name ["," Enum_Name], . . 

Exp1icit_Enum_List ::= Enum_Element ["," Enum_Element] . . . 

Enum_£lement ::= Enum_Name ["=" Integer_Constant] 

Enum_Name :: a Identifier 

Union_Type ::= "Union; "<" Union_SelectQP_Type ">" 

"Of" Union_Component... "End" "Union" 

Union_Selectop_Type ::= Type_Specif ication 

Union_Component ::= Union_Tag ":" "(" [Record_Component] 

ti \ m tt , » 
J » 

Union__Tag ::=» Constant_Expp | "Otherwise" 

Type_Option :: = "TypeType" " a " Integep^Constant | 

"Deallocate" ["=" Boolean_Constant] j 
"NoDeal locate" | 

"Element_S1ze" " s " Integep_Constant j 
"Element_Count" "=" Integer_Constant 

9.3. Message Definitions 

Msg_Decl ::=» Msg_Code_Decl | Msg_ID_Decl 

Msg_Code_Decl ::* Msg_3ody ["," Msg_Options]. . . ";" 

Msg_Body ::= To_Sepver j Fpom_Sepvep | 

Dnmrt+o Dr>n/«aHiir»fl I iltopna+o Ronlu 

itviuvwv^i • www w %m ■ w 1 * i ■ w w 1 nu ww n w ft i j 

Msg_Qptions ::= Msg_Papam_Key "»" Integep_Constant | 

Msg_CodeGen_Key "■" Boolean_Constant (NYI) 

To_SePver ::= "Message" Arg_List ":" Msg_Result 
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Remote_Procedure: • - " 

Alternate_Reply 

From_Server 

Arg_L1st 

Msg_Arg 

Data_Arg 

Arg_D1rect1on 



Remot9_Procedupe" Arg_List ":" Msg_Resu1t 
a "A1ternate_Rep1y" [Arg_List] 

■ "S0PV8P_Message" Arg_List 

■ "(" Msg_Arg [";•' Msg_Arg]... ")" 

■ Data_Arg | Special_Arg 
:= [Arg_Direction] Data_Arg_Spec; 
= "In" | "Out" | "InOut" 



Data_Arg_Spec ::= Simp1e_Arg_Spec | Variable_Arg_Spec | 

Un1on_Arg_Spec 



Simple_Arg_Spec 
Vap1ab1e_Arg_Spec 

Un1on_Arg_Spec 



: : a Arg_Name " : " Arg_Type 

::= Arg_Name "[" Arg_Cnt_Name "]" ":" Arg_Type | 
'"[" Arg_Cnt_Name "]" Arg_Name ":" Arg_Type 

::= Arg_Name "<" Se1ectop_Nam9 ">" ":" Arg_Type | 
"<" Se1ectop_Name ">" Apg_Name ":" Apg_Type 



Spec1al_Apg ::= Spec1al_Usage Apg_Mame ":" Apg_Type | 

" :" Arg_Type 

SpedalJJsaga ::= Port_Usage_Key | Msg_Paraffl_Key 

Popt_Usage_Key ::= "RemotePopt" | "Local Port" 



Msg_Papam_Koy 

Msg_CodeGen_Key 

Apg_Cnt_Name 

Selectop_Name 

Arg_Name 

Apg_Type 

Msg_ID_Dac1 



::= "MsgType" | "Send_0pt1on" | 

"Send_T1meout" | "Rece1ve_T1meout" 



■ "Asynchronous" ["User" j "Server"] 

a Arg_Name 

a Arg_Name 

= Identiflep 

a Type_Name [ "," Type_0pt1on]. . . 

- "Sk1p_ID" ";" | 

"Next.ID" "=" Integer_Constant ";" 
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9.4. Expression Syntax 
Constant_Expr 

Integer_Constant 

Boolean_Constant 

Char acter_Const ant 

Str1ng_Constant 

Enumeration_Constant 

Or_CTCE 
And_CTCE 
Not_CTCE 
Relational CTCE 



0R_CTCE (Valid types context dependent) 

Adding_CTCE (Must be integer valued) 

Or_CTCE (Must be boolean valued) 

Primary_CTCE (Must be character valued) 

Pr1mary_CTCE (Must be string valued) 

Primary_CTCE (Must result in a declared 
Enum_Name Identifier) 

And_CTCE ["Or" And_CTCE]... 
Not.CTCE ["And" Not_CTCE], . . 
["Not"] Relational_CTCE 
Equal ity_CTCE 

Equal ity_CTCE ]... 



Equal ity_CTCE ::= Add1ng_CTCE [ {" = " | "<>"} Adding_CTCE]. . . 
Adding_CTCE : 



Multiplying_CTCE 



Primary_CTCE 



H£«+» j «-«}] Multiplying_CTCE 

[{{"+" | "-"} Multiplying_CTCE]... 

Primary CTCE 

[■£«*« j »/„ j « Mod «} primary CTCE]. 

Identifier J Constant_Lexeme | 
"(" Or.CTCE ")" 



9.5. Lexical Definitions 
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Constant_Lexeme ::= 0ctal_L1teral j Decimal_Literal | 

Str1ng_L1teral | Character_L1teral | 
Boolean_Literal 

0ctal_L1teral ::= "#" followed by a non-empty octal 

digit string 

Dec1mal_L1teral ::= A non-empty decimal digit string 

Str1ng_L1teral ::= A character string enclosed 1n double 

quotes. A double quote may be 
represented by two. 

Character_L1teral ::= A character enclosed 1n single quotes 

A single quote may be represented 
by two. 

Boo.lean_L1teral :: a "True" | "False" 

Identifier ::= A string composed of letters, digits 

the underscore character, not starting 
with a digit. Identifiers are matched 
1n a non-case-sensitlve manner. 

At any lexical break, comments can be inserted as: 
"!" comment text <End Of Line> 
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10. Information Specific to Each Code Generator 

10.1. Pascal 

To import files into a Matchmaker-generated Pascal user or server file, create a file named 

FOO.mm-pas 

where FOO is the name of the interface declared at the beginning of the Matchmaker declaration file. The 

contents of FOO.mm-pas should look like: 

(1n-packag9 "MM-PASCAL-GEN") 
(simports "fUel") 
(simports "file2") 
(uimports "file3") 
(ulmports "file4") 
(Imports "fUeS") 
(imports "f1le6") 

In this example the files filei.pas, file2.pas, filc5.pas, and file6.pas will be imported into FOOScrver.pas, and 
files number 3, 4, 5, and 6 will be imported into FOOUser.pas. 

10.2. C 

Using Matchmaker with die C language works the same as with Pascal except: 

1. (In-package "MM-PASCAL-GEN") becomes (in-package "MM-C-GEN"). 

2. Filenames have the extension .c instead of .pas. 

3. If the module name and filename are not the same, you should state both, as in: 

(imports "ModuleName" "FileName") 
Otherwise, Matchmaker assumes the module and file have the same name. 



10.3. Lisp 

Using Matchmaker with die Accent Lisp language works the same as with Pascal except: 

1. The source file in die above example would be named FOO.mm-slisp. 

2. The contents of the source file would be: 

(in-package "MM-LISP-GEN") 

<-arbitrary Lisp expressions to be evaluated->) 

For more information, sec the Accent Lisp Manual. 
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1 1. Example 

In die example given in this section, Matchmaker generates the Typescript client interface for Pascal and Lisp 
and the Typescript server interface for Pascal. 

1 1.1. Source Files 

11.1.1. Typescript. mm 

This file is a language-independent interface specification. 

Interface TS=2800; 

************************* *************************************** 

Author: Pedro Szekely 

Abstract: Matchmaker interface for Typescript 



Change log: 
Aug 27 1984 jrg Oops! Had to change TSCharArray arg 

STSPutCharArray to 

a pTSCharArray, of course. 
Jul 31 1984 jrg Changed ptschararray arg to STSPutCharArray to 

a TSCharArray with a char_count arg fop 

new MM format. 

Also changed daf of TSCharArray to be 

variable-sized for backwards compatibility. 

Converted to new matchmaker format. 

Change STSFlushOutput to a Procedure. Now it 

passes back a message to the user, so it can 

be used to synchronize Typescript with other 

operations on the typescript window. 

Rearranged STSPutCharArray to avoid 

recompilatlons 

Added STSPutCharArray, TSCharArray 

Use allocated servgr message range (2800). 

Import TSDefs on user side; TSTypes on server 

Add OpenWindow, FullOpenWIndow, SetEnv, 

GrabWindow 

Add GetStrlng, PutStMng 

Created 



May 
Mov 


26 
3 


1984 
1983 


JmL 
dbg 


Oct 


28 


1983 


pas 


Oct 
Oct 
Sep 
Sep 


24 
17 
6 
3 


1983 
1983 
1983 
1983 


pas 
dbg 
dbg 
pas 


Aug 
Aug 


23 
9 


1983 
1983 


pas 
pas 



use Acdnt from "accent"; 

use Sapphdefs from "sapphdefs"; 
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type 



Typescript 
TSStr1ng256 
TSCharArray 
pTSCharArray 



Port; 

Perq_String[265]; 

packed array[*] of Character; 

t TSCharArray; 



Remote_Procedure STS0pen(: Port; vp: VlewPort; env: Port): Typescript; 

Remote_Procedure STSOpenWindow( : Port; 

w: Window; 
env: Port 
): Typescript; 



Remote_Procedure STSFu"NOpen( : 

vp : 
env : 

fontName : 
doWrap : 
dlspPages : 
): Typescript; 

Remote_Procedure STSFull0penW1ndow( : 

w : 
env : 

fontName : 
doWrap : 
dispPages : 
): Typescript; 



Port; 
ViewPort; 
Port; 

TSStr1ng256; 
Boolean; 
Integer 



Port; 
Window; 
Port; 

TSStr1ng266; 
Boolean; 
Integer 



Remote_Procedure STSFullL1ne(: Typescript): Boolean; 
Remote_Procedure STSGetChar( : Typescript): Character; 
Remote_Procedure STSGotString( : Typescript): TSStr1ng266; 
Message STSPutChar(: Typescript; ch: Character) :No_Value; 
Message STSPutString(: Typescript; s: TSStr1ng266) :No_Value; 
Message STSFlushInput( : Typescript) :No_Value; 
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Remote_Procedure STSF1ush0utput( : Typescript) :No_Va1ue; 

luse for synchronization 

Message STSChangeEnv( : Typescript; env: Port) :No_Va"lue; 

Remote_Procedure STSGrabWindow( : Typescript; kPort: Port): Window; 

Message STSPutCharArray( : Typescript; 

chars [char_count]: pTSCharArray; 
firstCh: Integer; 
lastCh: Integer 
) :No_Value; 

end Interface 



11.1.2. Ts.mm-pas 

This file contains Pascal-specific declarations. 
(in-package "MM-PASCAL-GEN") 
(s imports "TSTypes") 
(simports "STypescMpt") 

1 1 .2. Matchmaker-Produced Files 

11.2.1. TsDefs.pas 

This file contains Pascal types. 
Module TSDefs; 

Exports 

Imports BuiltinDefs from BulltinDefs; 
Imports AccintDefs from AcdntDefs; 
Imports SdefsDefs from SdefsDefs; 

type 

Typescript ■ port; 

TSString265 ■ string[255]; 

TSCharArray * packed array [0 .. 0] of char; 

pTSCharArray ■ tTSCharArray; 

Private 

Procedure Bug; 
begin end. 
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1 1.2.2. TsUser.pas 

This file is the Pascal user interface. 
Module TS; 

£ > y Exports { < } 

Imports Acclnt from AccintUser; 
Imports TSDefs from TSDefs; 

Procedure In1tTS(Rport : port); 

Function STS0pen( 

ServPort : Port; 

vp : Viewport; 

env : port): Typescript; 
Function STS0penW1ndow( 

ServPort : Port; 

w : Window; 

env : port): Typescript; 

Function STSFu110pen( 
ServPort : Port; 
vp : Viewport; 
env : port; 

fontName : TSStr1ng266; 
doWrap : boolean; 
dlspPages : Integer): Typescript; 

Function STSFull0penW1ndow( 
ServPort : Port; 
w : Window; 
env : port; 

fontName : TSStr1ng265; 
doWrap : boolean; 
dispPages : Integer): Typescript; 

Function STSFullL1ne( 

ServPort : Port): boolean; 

Function STSGetChar( 

ServPort : Port): char; 

Function STSGetStr1ng( 

ServPort : Port): TSString265; 

Procedure STSPutChar( 
ServPort : Port; 
ch : char); 
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Procedure STSPutString( 
ServPort : Port; 
s : TSStr1ng255); 

Procedure STSF1ushInput( 
ServPort : Port); 

Procedure STSF1ush0utput( 
ServPort : Port); 

Procedure STSChangeEnv( 
ServPort : Port; 
env : port); 

Function STSGrabW1ndow( 
ServPort : Port; 
kPort : port): Window; 

Procedure STSPutCharArray( 
ServPort : Port; 
chars : pTSCharArray; 
char_count : long; 
■MrstCh : Integer; 
lastCh : Integer); 

Function TSAsynch(InP: Pointer): boolean; 

{ > } Private { < } 

Imports AccCall from AccCall ; 
Imports Pascallnlt from Pascallnlt; 
type 
DumMsg a record 
hoad : Msg; 

body: array [0..1023] of Integer 
end; 
ptrDumMsg ■ tDumMsg; 

var 
ReplyPort : Port; 
GR : GeneralReturn; 
ReP : ptr DumMsg; 

Procedure TSExceptlons; 
forward; 
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Procedure InitTS(Rport : port); 
begin 
1f RPort = NullPort then 
begin 
GR:=A11ocatePort( Kernel Port, Reply Port, 5) ; 
1f GROSuccess then Rep1yPort:=DataPoPt 
end 

else ReplyPort:»RPort; 
new(ReP) 
end; 



Function STS0pen( 


ServPort : Port; 


vp : Viewport; 


env : port): Typescript; 


type 


MyMessage ■ record 


head 


Msg; 


IPCNamZ 


TypeType; 


Apg2 


Viewport; 


IPCNam3 


TypeType; 


Arg3 


port 


end; 





type 
RepMessage ■ record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralRetupn; 

IPCNam4 : TypeType; 

Apg4 : Typescript 
end; 
ptpRepMsg 3 tRepMessage; 

vap 
MyMsg : MyMessage; 
RepMsgP : ptpRepMsg; 
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begin 
RepMsgP := RECAST(ReP,ptrRepMsg) ; 
with MyMsg.head do 
begin 

Simplemsg := FALSE; 

MsgS1ze:= 38; 

MsgType:= NormalMsg; 

RemotePort := ServPort; 

LocalPort := ReplyPort; 

ID := 2800 
end; 
with MyMsg do 
begin 

IPCNam2.InL1ne := TRUE; 

IPCNam2. Deallocate := FALSE; 

IPCNam2.LongForm := FALSE; 

IPCNam2.TypeName := 6; 

IPCNam2.TypeSizeInBits := 32; 

IPCNam2.Num0bjeets : a 1; 

Arg2 := vp; 

IPCNam3.InL1ne := TRUE; 

IPCNam3. Deallocate := FALSE; 

IPCNam3.LongForm :« FALSE; 

IPCNam3.TypeName : a 6; 

IPCNam3.TypeS1zeInBits := 32; 

IPCNamS.NumObjects :■ i; 

Arg3 : a env; 
end; 
with RepMsgPt.head do 
begin 

MsgSize :» WordSize(DumMsg)*2; 

LocalPort := ReplyPort 
end; 
GR := Send(MyMsg. head, 0, WAIT); 
1f GR <> Success then 
begin 

Raise GRError(GR); 

exit(STSOpen) 
end; 
GR :» Rece1ve(RepMsgPt.head,0,LOCALPT,RECEIVEIT); 
If GR <> Success then 
begin 

Raise GRError(GR); 

exlt(STSOpen) 
end; 
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with RepMsgPt do 
begin 
If head. ID <> 2900 then 
begin 

TSExceptions; 
exlt(STSOpen) 
end ; 

1f RetCodeType.TypeName <> TYPEINT16 then 
begin 
Raise GRError(BADREPLY); 
exlt(STSOpen) 
end; 

1f (RetCode <> Success) then 
begin 
Raise GRError(BadReply); 
Exlt(STSOpen) 
end; 

1f IPCNam4.TypeName <> 6 then 
begin 
Raise GRError(BadReply); 
exlt(STSOpen) 
end; 
STSOpen :■ Arg4; 
end; 
end; 



Function STS0penW1ndow( 
ServPort : Port; 
w : Window; 
env : port): Typescript; 



type 




MyMessage ■ record 


head 


Msg; 


IPCNam2 


TypeType; 


Arg2 


Window; 


IPCNam3 


TypeType; 


Arg3 


port 


end; 


type 


RepMessage * record 


head : Msg; 


RetCodeType : TypeType; 


RetCode : GeneralReturn; 


IPCNam4 : TypeType; 


Arg4 : Typescript 


end; 


ptrRepMsg 


= tRepMessage; 
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var 
MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 

begin 
RepMsgP := RECAST(ReP.ptrRepMsg) ; 
with MyMsg. head do 
begin 

Slmplemsg :» FALSE; 

MsgSize:* 38; 

MsgType:* NormalMsg; 

RemotePort :* ServPort; 

LocalPort := ReplyPort; 

ID := 2801 
end; 
with MyMsg do 
begin 

IPCNam2.InL1ne :» TRUE; 

IPCNam2. Deallocate :* FALSE; 

IPCNam2.LongForm ;= FALSE; 

IPCNam2.TypQName : a 6; 

IPCNam2.TypeS1zeInB1ts := 32; 

IPCNam2.Num0bjects :=» 1; 

Arg2 := w; 

IPCNam3.InL1ne := TRUE; 

IPCNamS. Deallocate :« FALSE; 

IPCNam3.LongForm :« FALSE; 

IPCNam3.TypeName : a 6; 

IPCNam3.TypeS1zoInB1ts :* 32; 

IPCNam3.Num0bjects :«• 1; 

Arg3 := env; 
end; 
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with RepMsgPt.head do 
begin 
MsgSIze := WordS1ze(DumMsg)*2; 
LocalPort := ReplyPort 
end; 
GR := Send(MyMsg. head, 0, WAIT); 
1f GR <> Success then 
begin 
Raise GRError(GR); 
exlt(STSOpenWindow) 
end; 
GR := Receive(RepMsgPt.head,0,LOCALPT,RECEIVEIT); 
If GR <> Success then 
begin 
Raise GRError(GR); 
ex1t(STS0penW1ndow) 
end; 
with RepMsgPt do 
begin 
If head. ID <> 2901 then 
begin 
TSExceptions; 
8x1t(STS0panW1ndow) 
end; 

if RetCodeType.TypeName <> TYPEINT16 then 
begin 
Raise GRError(BADREPLY) ; 
exit(STSOpenWlndow) 
end; 

1f (RetCode <> Success) then 
begin 
Raise GRError(BadReply); 
Exit(STSOpenWindow) 
end; 

if IPCNam4.TypeName <> 6 then 
begin 

Raise GRError(BadReply); 
exlt(STSOpenWindow) 
end; 
ST30penW1ndow : a Arg4; 
end; 
end; 
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Function STSFul"IOpen( 
ServPort : Port; 
vp : Viewport; 
env : port; 

fontName : TSStr1ng265; 
doWrap : boolean; 
dispPages : Integer): Typescript; 



type 




MyMessage 


■ record 


head 


Msg; 


IPCNam2 


TypeType; 


Arg2 


Viewport; 


IPCNam3 


TypeType; 


Arg3 


port; 


IPCNam4 


TypeType; 


Arg4 


TSString256; 


IPCNam6 


TypeType; 


Arg5 


boolean; 


IPCNam6 


TypeType; 


Arg6 


Integer 


end; 




type 




RepMessag* 


j ■ record 


head 


: Msg; 


RetCodeT^ 


fpe : TypeType; 


RetCode 


: GeneralReturn; 


IPCNam7 


: TypeType; 


Arg7 


: Typescript 


end; 




ptrRepMsg 


■ tRepMessage; 


var 




MyMsg : Mj 


^Message; 


RepMsgP : 


ptrRepMsg; 
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begin 
RepMsgP := RECAST(ReP.ptrRepMsg) ; 
with MyMsg.head do 
begin 

Slmplemsg := FALSE; 

MsgS1ze:= 310; 

MsgType:* NormalMsg; 

RemotePort := ServPort; 

LocalPort := ReplyPort; 

ID :» 2802 
end; 
with MyMsg do 
begin 

IPCNam2.InL1ne := TRUE; 

IPCNam2. Deallocate := FALSE; 

IPCNam2.LongForm := FALSE; 

IPCNam2.TypeName : a 6; 

IPCNam2.TypeS1zeInB1ts := 32; 

IPCNam2.NumObjects : 3 1; 

Arg2 := vp; 

IPCNam3.InL1ne :=« TRUE; 

IPCNam3. Deallocate := FALSE; 

IPCNam3.LongForm :* FALSE; 

IPCNam3.TypeName :» 6; 

IPCNam3.TypeSizeInB1ts : a 32; 

TDPtlnmO UnrnHK U/<+» . •* A. 
ir viimuiu • iiuniwujov in) • ~" m i 

Arg3 :■ env; 

IPCNam4.InL1ne ;* TRUE; 

IPCNam4. Deal locate := FALSE; 

IPCNam4.LongForm :- FALSE; 

IPCNam4.TypeName : a 0; 

IPCNam4.TypeS1zeInB1ts ;=• 8; 

IPCNam4.Nunt0bjects : a 256; 

Arg4 :■ fontName; 

IPCNam5.InL1ne :» TRUE; 

IPCNam6. Deal locate : = FALSE; 

IPCNam6.LongFopm :» FALSE; 

IPCNamS.TypeName :» 0; 

IPCNam6.TypeS1zeInB1ts :■ 1; 

IPCNamB.NumObjects : a 1; 

Arg6 : a doWrap; 

IPCNam6.InL1ne :» TRUE; 

IPCNam6. Deallocate := FALSE; 

IPCNam6.LongForm :« FALSE; 

IPCNam6.Typ9Name :■ 1; 

IPCNam6.TypeS1zeInB1ts :» 16; 

IPCNam6.Num0bjects :■ 1; 

Arg6 :* dlspPages; 
end; 
with RepMsgPt.head do 
begin 

MsgSIze :» V/ordS1ze(DumMsg)*2; 

LocalPort := ReplyPort 
end; 
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GR := Send(MyMsg. head, 0, WAIT); 
1f GR <> Success than 
begin 
Raise GRError(GR); 
exit(STSFullOpen) 
end; 
GR := Rece1ve(RepMsgPt.head,0,LOCALPT,RECEIVEIT); 
If GR <> Success then 
begin 
Raise GRError(GR); 
exit(STSFullOpen) 
end; 
with RepMsgP* do 
begin 
If head. ID <> 2902 then 
begin 
TSExceptions; 
exit(STSFunOpen) 
end; 

1f RetCodeType.TypeName <> TYPEINT16 then 
begin 
Raise GRError(BADREPLY) ; 
exit(STSFullOpen) 
end; 

if (RetCode <> Success) then 
begin 
Raise GRError(BadReply) ; 
Exit(STSFunOpen) 
end; 

if IPCNam7.TypeName <> 6 then 
begin 
Raise GRError(BadReply); 
exit(STSFullOpen) 
end; 
STSFullOpen :» Apg7; 
end; 
end; 
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Function STSFu1"IOpenW1ndow( 
ServPort : Port; 
w : Window; 
env : port; 

fontName : TSStr1ng265; 
doWrap : boolean; 
dlspPages : Integer): Typescript; 



type 




MyMessage 


■ record 


head 


Msg; 


IPCNam2 


TypeType; 


Arg2 


Window; 


IPCNam3 


TypeType; 


Arg3 


port; 


IPCNam4 


TypeType; 


Arg4 


TSStr1ng255; 


IPCNamS 


TypeType; 


Arg6 


boolean; 


IPCNam6 


TypeType; 


Arg6 


Integer 


end; 




type 




RepMessagc 


j ■ record 


head 


: Msg; 


RetCodeT^ 


fpe : TypeType; 


RetCode 


: GeneralReturn; 


IPCNam7 


TypeType; 


Arg7 


Typescript 


end; 




pfcrRepMsg 


= tRepMessage; 
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var 
MyMsg : My Mess age; 
RepMsgP : ptrRepMsg; 

begin 
RepMsgP := RECAST(ReP,ptrRepMsg) ; 
with MyMsg. head do 
begin 

Simplemsg := FALSE; 

MsgS1ze:= 310; 

MsgType:= NormalMsg; 

RemotePort := ServPort; 

LocalPort := ReplyPort; 

ID := 2803 
end; 
with MyMsg do 
begin 

IPCNam2.InL1ne := TRUE; 

IPCNam2. Deallocate :■ FALSE; 

IPCNam2.LongForm := FALSE; 

IPCNam2.TypeName : a 6; 

IPCNam2.TypeSizaInB1ts := 32; 

IPCNam2.Num0bjects :- 1; 

Arn2 * s w* 

IPCNam3.InL1ne :=« TRUE; 

IPCNam3. Deallocate :■ FALSE; 

IPCNam3.LongForm :- FALSE; 

IPCNam3.TypeName :* 8; 

IPCNam3.TypGS1zeInB1ts :« 32; 

IPCNam3.Num0bjects :■ 1; 

Arg3 := env; 

IPCNam4.InL1ne :■ TRUE; 

IPCNam4. Deallocate :=* FALSE; 

IPCNam4.LongForm : a FALSE; 

IPCNam4.TypeNam9 : a 0; 

IPCNam4.TypeS1zeInB1ts :» 8; 

IPCNam4.Num0bjects :- 266; 

Arg4 := fontName; 

IPCNam5.InL1ne :* TRUE; 

IPCNamS. Deal locate :=» FALSE; 

IPCNam5.LongForm := FALSE; 

IPCNam5.TypeName : a 0; 

IPCNam5.TypeS1zeInB1ts :■ .1; 

IPCNam5.Num0bjects :■ lj 

Arg6 := doWrap; 

IPCNam6.InL1ne : = TRUE; 

IPCNam6. Deallocate := FALSE; 

IPCNam6.LongForm : = FALSE; 

IPCNamS.TypeName :■ 1; 

IPCNam8.TypeS1zeInB1ts : a 16; 

IPCNam6.Num0bjects :=» 1; 

Arg6 := dlspPages; 
end; 
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with RepMsgPt.head do 
begin 
MsgSIze :■ WordS1ze(DumMsg)*2; 
LocalPort := ReplyPort 
end; 
GR := Send(MyMsg. head, 0, WAIT); 
1f GR <> Success then 
begin 
Raise GRError(GR); 
ex1t(STSFul10penW1ndow) 
end; 
GR := Rece1ve(RepMsgPt.head,0,L0CALPT,RECEIVEIT); 
If GR <> Success then 
begin 
Raise GRError(GR); 
ex1t(STSFul10penW1ndow) 
end; 
with RepMsgP* do 
begin 
If head. ID <> 2903 then 
begin 
TSExceptlons; 
ex1t(STSFu110penW1ndow) 
end; 

1f RetCodeType.TypeName <> TYPEINT16 then 
begin 
Raise GREppop(BADREPLY); 
ex1t(STSFu1l0p.QnW1ndow) 
end; 

if (RetCode <> Success) then 
begin 
Raise GREpror(3adRep1y) ; 
Ex1t(STSFu1l0penW1ndow) 
end; 

1f IPCNam7.TypeName <> 6 then 
begin 
Raise GREppor(BadReply); 
ex1t(STSFull0penW1ndow) 
end; 
STSrullOpenWIndow :- Apg7; 
end; 
end; 
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Function STSFu1"IL1ne( 

ServPort : Port): boolean; 

type 
MyMessage = record 

head : Msg 
end; 

type 
RepMessage = record 

head 

RetCodeType 

RetCode 

IPCNam2 : TypeType; 

Arg2 : boolean 
end; 
ptrRepMsg = tRepMessage; 

var 

MyMsg : MyMessage; 

RepMsgP : ptrRepMsg; 
begin 

RepMsgP := RECAST(ReP, ptrRepMsg) ; 

with MyMsg. head do 

UOIJ I II 

Simplemsg : a TRUE; 
MsgSize:* 22; 
MsgType:= NormalMsg; 
RemotePort : a SepvPoPt; 
LocalPoPt : a ReplyPopt; 
ID : = 28G4 
end; 
with MyMsg do 
begin 
end; 
with RepMsgP*. head do 
begin 

MsgSize := WordSize(DumMsg)*2; 
LocalPort := ReplyPopt 
end; 
GR := Send(MyMsg.head,O t WAIT); 
if GR <> Success then 
begin 
Raise GREppop(GR); 
exit(STSFunLlne) 
end; 
GR := Receive(RepMsgPt.head,0,LOCALPT,RECEIVEIT); 
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If GR <> Success then 
begin 
Raise GRError(GR); 
exlt(STSFullUne) 
end; 
with RepMsgPt do 
begin 
If head. ID <> 2904 then 
begin 
TSExceptlons; 
ex1t(STSFu11L1ne) 
end; 

if RetCodeType.TypeName <> TYPEINT16 then 
begin 
Raise GRError(BADREPLY); 
ex1t(STSFu1!L1ne) 
end; 

1f (RetCode <> Success) then 
begin 
Raise GRError(BadReply); 
Exlt(STSFullLine) 
end; 

1f IPCNam2.TypeName <> then 
begin 

Raise GRError(BadReply); 
ex1t(STSFullL1ne) 
end; 
STSFullLine : a Arg2; 
end; 
end; 

Function STSGetChar( 

ServPort : Port): char; 

type 
MyMessage = record 

head : Msg 
end; 

type 
RepMessage s record 



head 

RetCodeType 

RetCode 



Msg; 

TypeType; 

GeneralReturn; 



IPCNam2 : TypeType; 

Arg2 : char 
end; 

ptrRepMsg * tRepMessage; 
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var 
MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 

begin 
RepMsgP := RECAST(ReP.ptrRepMsg) ; 
with MyMsg. head do 
begin 
Slmplemsg := TRUE; 
MsgSize:= 22; 
MsgType:= NormalMsg; 
RemotePort := ServPort; 
LocalPort := ReplyPort; 
ID := 2806 
end; 
with MyMsg do 
begin 
• end; 
with RepMsgPt.head do 
begin 
MsgSize := WordSize(DumMsg)*2; 
LocalPort := ReplyPort 
end; 
GR := Sond(MyMsg. head, 0, WAIT); 
1f GR <> Success then 
begin 
Raise GRError(GR); 
9xit(STSGetChar) 
end; 
GR :* Receive(RopMsgPt.head,0,LOCALPT,RECEIVEIT); 
If GR <> Success then 
begin 
Raise GRError(GR); 
exit(STSGetChar) 
end; 
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with RepMsgPt do 
begin 
If head. ID <> 2906 then 
begin 

TSExceptions; 
exlt(STSGetChar) 
end; 

if RetCodeType.TypeName <> TYPEINT16 then 
begin 
Raise GRError(BADREPLY) ; 
exit(STSGetChar) 
end; 

if (RetCode <> Success) then 
begin 
Raise GRError(BadReply) ; 
Exlt(STSGetChar) 
end; 

1f IPCNam2.TypeName <> 8 then 
begin 
Raise GRError(BadReply); 
exlt(STSGetChap) 
end; 
STSGetChar : = Arg2; 
end; 
end; 

Function STSGetStr1ng( 

ServPort : Port): TSString26B; 

type 
MyMessage a record 

head : Msg 
end; 

type 
RepMessage a record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn; 

IPCNam2 : TypeType; 

Arg2 : TSString266 
end; 
ptrRepMsg a tRepMessage; 
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var 
MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 

begin 
RepMsgP := RECAST(ReP,ptrRepMsg) ; 
with MyMsg. head do 
begin 

Slmplemsg := TRUE; 
MsgSize:= 22; 
MsgType:= NormalMsg; 
RemotePort : s ServPort; 
LocalPort := ReplyPort; 
ID := 2806 
end; 
with MyMsg do 
begin 
end; 
with RepMsgPt.head do 
begin 

MsgSIze := WordS1ze(DumMsg)*2; 
LocalPort :« ReplyPort 

9 II Vs g 

GR := Send(MyMsg. head, 0, WAIT); 
if GR <> Success then 
begin 
Raise GRError(GR); 
exlt(STSGetString) 
end; 
GR := Rec8lve(RepMsgPt.head,0,L0CALPT,RECEIVEIT); 
If GR <> Success then 
begin 
Raise GRError(GR); 
exit(STSGetString) 
end; 
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with RepMsgPt do 
begin 
If head. ID <> 2906 then 
begin 
TSExceptlons; 
exlt(STSGetStrlng) 
end; 

If RetCodeType.TypeName <> TYPEINT16 then 
begin 
Raise GRError(BADREPLY); 
exit(STSGetStrlng) 
end; 

1f (RetCode <> Success) then 
begin 
Raise GRError(BadReply); 
Exlt(STSGetStMng) 
end; 

1f IPCNam2.TypeName <> then 
begin 
Raise GRError(BadReply); 
exlt(STSGetStMng) 
end; 
STSGetStrlng := Arg2; 
end; 
end; 

Procedure STSPutChar( 
ServPort : Port; 
ch : char); 

type 
MyMessage = record 

head : Msg; 

IPCMam2 : TypeType; 

Arg2 : chap 
end; 

type 
RepMessage ■ record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn 
end; 
ptrRepMsg a tRepMessage; 

vap 

UwUrn • MuUueva/iai 
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RepMsgP : ptrRepMsg; 
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begin 
RepMsgP := RECAST(ReP.ptrRepMsg) ; 
with MyMsg.head do 
begin 
Slmplemsg := TRUE; 
MsgS1ze:= 28; 
MsgType:= NormalMsg; 
RemotePopt := ServPort; 
LocalPort := ReplyPort; 
ID := 2807 
end; 
with MyMsg do 
begin 
IPCNam2.InL1ne := TRUE; 
IPCNam2. Deallocate := FALSE; 
IPCNam2.LongForm := FALSE; 
IPCNam2.TypeName ;= 8; 
IPCNam2,TypeS1zeInB1ts := 8; 
IPCNam2.Num0bjects := 1; 
Arg2 := ch; 
end; 
GR := Send(MyMsg. head, 0, WAIT); 
1f GR <> Success then 
begin 
Raise GRError(GR); 

end; 
end; 
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Procedure STSPutStr1ng( 
ServPort : Port; 
s : TSStr1ng265); 



type 




MyMessage 


■ record 


head : 


Msg; 


IPCNam2 : 


TypeType; 


Arg2 : 


TSStr1ng256 


end; 




type 




RepMessage 


= record 


head 


: Msg; 


RetCodeType : TypeType; 


RetCode 


: GeneralReturn 


end; 




ptrRepMsg 


■ tRepMessage; 



var 
MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 

begin 
RepMsgP := RECAST(ReP , ptrRepMsg) ; 
with MyMsg. head do 
begin 
Slmplemsg := TRUE; 
MsgS1ze: a 282; 
MsgType:= Normal Msg; 
RemotePort := ServPort; 
LocalPort : a ReplyPort; 
ID :- 2808 
end; 
with MyMsg do 
begin 
IPCNam2.InL1ne :« TRUE; 
IPCNam2. Deal locate := FALSE; 
IPCNam2.LongForm : = FALSE; 
IPCNam2.Typ6Nanie := 0; 
IPCNam2.TypeS1zeInBits :« 8; 
IPCNam2.Num0bjects :* 256; 
Arg2 :- s; 
end; 
GR :» Send(MyMsg. head, 0, WAIT); 
1f GR <> Success then 
begin 
Raise GRError(GR); 
exit(STSPutStrlng) 
end; 
end; 
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Procedure STSF1ushInput( 
ServPort : Port); 

type 
MyMessage ■ record 

head : Msg 
end; 

type 
RepMessage ■ record 

head 

RetCodeType 

RetCode 
end; 
ptrRepMsg = tRepMessage; 



Msg; 

TypeType; 

GeneralReturn 



.var 
MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 

begin 
RepMsgP : a RECAST(ReP, ptrRepMsg) ; 
with MyMsg. head do 
begin 

Simp] ems g :■ TRUE; 
MsgSIze:* 22; 
MsgType:= NormalMsg; 
RemotePort := ServPort; 
LocalPort :■ ReplyPort; 
ID := 2809 
end; 
with MyMsg do 
begin 
end; 
GR := Send(MyMsg. head, 0, WAIT); 
1f GR <> Success then 
begin 
Raise GRError(GR); 
exlt(STSFIushlnput) 
end; 
end; 
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Procedure STSF1ush0utput( 
ServPort : Port); 

type 
MyMessage a record 

head : Msg 
end; 



type 
RepMessage a record 



head 

RetCodeType 

RetCode 
end; 
ptrRepMsg a tRepMessage; 



Msg; 

TypeType; 

GeneralReturn 
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var 
MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 

begin 
RepMsgP := RECAST(ReP.ptrRepMsg) ; 
with MyMsg. head do 
begin 

Slmplemsg :» TRUE; 
MsgS1ze: a 22; 
MsgType:= NormalMsg; 
RemotePort := ServPort; 
LocalPort : a ReplyPort; 
ID := 2810 
end; 
with MyMsg do 
begin 
end ; 
with RepMsgP*. head do 
begin 

MsgSIze :* WordS1ze(DumMsg)*2; 
LocalPort := ReplyPort 
end ; 
GR :« Send(MyMsg. head, 0, WAIT); 
1f GR <> Success then 
begin 
Raise GRError(GR); 
exlt(STSFlushOutput) 
end; 
GR := Rece1ve(RepMsgP*.head,0,LOCALPT,RECEIVEIT); 
If GR <> Success then 
begin 
Raise GRError(GR); 
exlt(STSFlushOutput) 
end; 
with RepMsgP* do 
begin 
If head. ID <> 2910 then 
begin 
TSExceptlons; 
exlt(STSFlushOutput) 
end; 

1f RetCodeType.TypeName <> TYPEINT16 then 
begin 
Raise GRError(BADREPLY); 
exlt(STSFlushOutput) 
end; 

1f (RetCode <> Success) then 
begin 
Raise GRError(BadReply); 
Exlt(STSFlushOutput) 
end; 
end; 
end; 
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Procedure STSChangeEnv( 
ServPort : Port; 
env : port); 



type 




MyMessage 


3 record 


head : 


Msg; 


IPCNam2 : 


TypeType; 


Arg2 


port 


end; 




type 




RepMessage 


■ record 


head 


: Msg; 


RetCodeType : TypeType; 


RetCode 


: GeneralReturn 


end; 




ptrRepMsg 


■ tRepMessage; 



var 
MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 

begin 
RepMsgP :» RECAST(ReP, ptrRepMsg) ; 
with MyMsg. head do 
begin 
Slmplemsg :» FALSE; 
MsgS1ze:« 30; 
MsgType:= NormalMsg; 
RemotePort : a ServPort; 
LocalPort :» ReplyPort; 
ID := 2811 
end; 
with MyMsg do 
begin 
IPCNam2.InL1ne :* TRUE; 
IPCNam2. Deallocate :» FALSE; 
IPCNam2.LongForm := FALSE; 
IPCNam2.TypeName :* 6; 
IPCNam2.TypeS1zeInB1ts :« 32; 
IPCNam2.Num0bjects :■ 1; 
Arg2 :■ env; 
end; 
GR := SQnd(MyMsg.head,0,WAIT); 
1f GR <> Success then 
begin 
Raise GRError(GR); 
exlt(STSChangeEnv) 
end; 
end; 
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Function STSGrabW1ndow( 
ServPort : Port; 
kPort : port): Window; 

type 
MyMessage a record 

head : Msg; 

IPCNam2 : TypeType; 

Arg2 : port 
end; 

type 
RepMessage = record 



Msg; 

TypeType; 

GeneralReturn; 



head 

RetCodeType 

RetCode 

IPCNam3 : TypeType; 

Arg3 : Window 

end; 
ptrRepMsg a tRepMessage; 
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var 
MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 

begin 
RepMsgP := RECAST(ReP.ptrRepMsg) ; 
with MyMsg. head do 
begin 
Slmplemsg :» FALSE; 
MsgS1ze: s 30; 
MsgType:= NormalMsg; 
RemotePort := ServPort; 
LocalPort := ReplyPort; 
ID := 2812 
end; 
with MyMsg do 
begin 
IPCNam2.InL1ne := TRUE; 
IPCNam2. Deallocate :« FALSE; 
IPCNam2.LongForm :* FALSE; 
IPCNam2.TypeName : a 6; 
IPCNam2.TypeS1zeInB1ts :■ 32; 
IPCNam2.Num0bjects :■ 1; 
Arg2 :=» kPort; 
end; 
with RepMsgPt.head do 
begin 
MsgSIze := WordS1ze(DumMsg)*2; 
LocalPort := ReplyPort 
end; 
GR :» Send(MyMsg. head, 0, WAIT); 
1f GR <> Success then 
begin 
Raise GRError(GR); 
ex1t(STSGrabW1ndow) 
end; 
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6R := Receive(RepMsgPt.head,0,LOCALPT,RECEIVEIT); 
If GR <> Success then 
begin 
Raise GRError(GR); 
exit(STSGrabWindow) 
end; 
with RepMsgPt do 
begin 
If head. ID <> 2912 then 
begin 
TSExceptions; 
exlt(STSGrabWindow) 
end; 

if RetCodeType.TypeName <> TYPEINT16 then 
begin 
Raise GRError(BADREPLY) ; 
exit(STSGrabWlndow) 
end; 

if (RetCode <> Success) then 
begin 
Raise GRError(BadReply) • 
Exit(STSGrabWlndow) 
end; 

if IPCNam3.TypeName <> 8 then 
begin 
Raise GRError(BadReply) ; 
exit(STSGrabWindow) 
end; 
STSGrabWIndow : a Arg3; 
end; 
end; 
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Procedure STSPutCharArray( 
ServPort : Port; 
chars : pTSCharArray ; 
char_count : long; 
f-irstCh : Integer; 
lastCh : Integer); 



type 




MyMessage 


= record 


head 


Msg; 


IPCNam2 


TypeType; 


TName2 


Integer; 


TS1ze2 


integer; 


NumEUs2 


long; 


Arg2 


pTSCharArray; 


IPCNam3 


TypeType; 


Arg3 


. Integer; 


IPCNam4 


TypeType; 


Arg4 


: Integer 


end; 




type 




RapMessag* 


j - record 


head 


: Msg; 


RetCodeT: 


/pa : TypeType; 


RetCode 


: GeneralReturn 


end; 




ptrRepMsg 


= tRepMessage; 


var 




My Msg : Mj 


/Message; 


RepMsgP : 


ptrRepMsg; 
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begin 
RepMsgP := RECAST(ReP.ptrRepMsg) ; 
with MyMsg.head do 
begin 

Simplemsg := FALSE; 

MsgSize:= 50; 

MsgType:= NormalMsg; 

RemotePort := ServPort; 

LocalPort := ReplyPort; 

ID := 2813 
end; 
with MyMsg do 
begin 

IPCNam2.InLine := FALSE; 

IPCNam2. Deallocate := FALSE; 

IPCNam2.LongForni := TRUE; 

TName2 := 8; 

TSize2 := 8; 

NumElts2 := chap_count; 

Arg2 := chars; 

IPCNam3.InL1ne := TRUE; 

IPCNam3. Deallocate :- FALSE; 

IPCNam3.LongForm : a FALSE; 

IPCNam3.TypeName := 1; 

IPCNam3.TypeSizoInBits := 16; 

IPCNatn3,Num0biects ; a 1; 

Arg3 := firstCh; 

IPCNam4.InLine := TRUE; 

IPCNam4. Deal locate := FALSE; 

IPCNam4.LongForm := FALSE; 

IPCNam4.TypeName :* 1; 

IPCNam4.TypaS1zeInBits := 16; 

IPCNam4.NumCbjects := 1; 

Arg4 := lastCh; 
end; 
GR := Send(MyMsg.head,0,WAIT); 
if GR <> Success then 
begin 

Raise GRError(GR); 

exit(STSPutCharArray) 
end; 
end; 
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Function TSAsynch(InP : POINTER): boolean; 
var 
InMsgP : ptrMsg; 

begin 
InMsgP : = RECAST(InP.ptrMsg) ; 
with InMsgPt do 
begin 
TSAsynch := True; 
case shrink(ID) of 
Otherwise: TSAsynch := False 
end 
end 
end; 



Procedure TSExceptions; 
begin 

with RePt.head do 
case shrink(ID) of 

Otherwise: raise GRError(BADREPLY) 
end 
end. 



1 1 .2.3. TsServer.pas 

This file is the Pascal server interface. 
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Module TSServer; 

{ > } Exports { < } 

Imports Acclnt from AccintUser; 
Imports TSDofs from TSDefs; 
Imports STypescript from STypescript; 
Imports TSTypes from TSTypes; 

Function TSServer(InP,RepP : POINTER) : boolean; 

{ _, > y Private { < } 

Imports AccCall from AccCall ; 
Imports Pascallnit from Pascallnit; 

var 
ReplyPort: port; 
GR : GeneralReturn; 
ReP : Pointer; 

Procedure XSTSOpen(InP, ReP : POINTER); 

type 
MyMessago = record 

head : Msg; 

IPCNamZ : TypoType; 

Arg2 : Viewport; 

IPCNam3 : TypeType; 

Arg3 : port 
end; 

type 
RepMessage = record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn; 

IPCNam4 : TypeType; 

Arg4 : Typescript 
end; 
type 
ptrMyMsg = tMyMessage; 
ptrRepMsg = tRepMessage; 
var 
MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
vp : Viewport; 
env : port; 
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begin 
MyMsgP := RECAST(InP, ptrMyMsg) ; 
RepMsgP := RECAST(ReP.ptrRepMsg) ; 
RepMsgPt.RetCode := Success; 
with RepMsgPt.head do 
begin 
Slmplemsg : a FALSE; 
MsgSIze := 36; 
MsgType := NormalMsg; 
ID := 2900 
end; 
with MyMsgPt do 
begin 
ServPort := head.LocalPort; 
1f IPCNam2.TypeName <> 6 then 
begin 
RepMsgPt.RetCode := WRONGARGS; 
exit(XSTSOpen) 
end; 
vp := Arg2; 

1f IPCNam3.TypeName <> 6 then 
begin 
RepHsgPt.RetCode := WRONGARGS; 
exlt(XSTSOpen) 
end; 
env := Arg3; 
end; 
RepMsgPt.Arg4 : = STS0pen( 
SorvPort, 

vp, 
env); 
with RepMsgPt do 
begin 
IPCNam4.InL1ne :=» TRUE; 
IPCNam4. Deallocate :« FALSE; 
IPCNam4.LongForm := FALSE; 
IPCNam4.TypeName := 6; 
IPCNam4.TypeS1zeInB1ts :» 32; 
IPCNam4.Num0bjects :■ 1; 
end 
end; 

Procedure XSTS0penW1ndow(InP, ReP : POINTER); 



type 




MyMessage 


~ record 


head : 


Msg; 


IPCNam2 


TypeType; 


Arg2 


Window; 


IPCNam3 


TypeType; 


Arg3 


port 


end; 
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type 
RepMessage = record 
head : Msg; 
RetCodeType : TypeType; 
RetCode : GeneralReturn; 
IPCNam4 : TypeType; 
Arg4 : Typescript 
end; 
type 
ptrMyMsg = tMyMessage; 
ptrRepMsg = tRepMessage; 
var 
MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
w : Window; 
. env : port; 
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begin 
MyMsgP := RECAST(InP.ptrMyMsg) ; 
RepMsgP := RECAST(ReP,ptrRepMsg) ; 
RepMsgPt.RetCode := Success; 
with RepMsgPt.head do 
begin 
Slmplemsg := FALSE; 
MsgSIze := 36; 
MsgType := NormalMsg; 
ID := 2901 
end; 
with MyMsgPt do 
begin 
ServPort := head.LocalPort; 
1f IPCNam2.TypeName <> 6 then 
begin 
RepMsgPt.RetCode := WRONGARGS; 
ex1t(XSTS0penW1ndow) 
end; 
w := Arg2; 

1f IPCNam3.TypeName <> 6 then 
begin 
RepMsgPt.RetCode := WRONGARGS; 
ex1t(XSTS0penW1ndow) 
end; 
env := Arg3; 
end; 
RepMsgPf .Arg4 := STS0penW1ndow( 
ServPort, 
w, 

env); 
with RepMsgPt do 
begin 
IPCNam4.InL1ne :- TRUE; 
IPCNam4. Deal locate := FALSE; 
IPCNam4.LongForm :* FALSE; 
IPCNam4.TypeName :■ 6; 
IPCNam4.TypeS1zeInB1ts :* 32; 
IPCNam4.Num0bjects := 1; 
end 
end; 
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Procedure XSTSFullOpen(InP, ReP : POINTER); 


type 


MyMessage = record 


head : Msg; 


IPCNam2 - 


TypeType; 


Arg2 


Viewport; 


IPCNam3 


TypeType; 


Arg3 


port; 


IPCNam4 


TypeType; 


Arg4 


TSString266; 


IPCNam5 


TypeType; 


Arg5 


boolean; 


IPCNam6 


. TypeType; 


Arg6 


: Integer 


end; 


V V DQ 


RepMessage a record 


head : Msg; 


RetCodeType : TypeType; 


RetCode : GeneralReturn; 


IPCNam7 : TypeType; 


Arg7 : Typescript 


end; 


type 


ptrMyMsg ■ tMyMassage; 


ptpRepMsg = tR9pMessage; 


var 


MyMsgP : ptrMyMsg; 


RepMsgP : ptrRspMsg; 


SepvPort : Port; 


vp : Viewport; 


env : port; 


fontName : TSStPing255; 


doWpap : boolean; 


dispPages 


: Integer; 
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begin 
MyMsgP := RECAST(InP, ptrMyMsg) ; 
RepMsgP := RECAST(ReP.ptrRepMsg) ; 
RepMsgPt.RetCode := Success; 
with RepMsgPt.head do 
begin 
Slmplemsg :■ FALSE; 
MsgSIze := 36; 
MsgType := NormalMsg; 
ID := 2902 
end; 
with MyMsgP* do 
begin 
ServPort := head.LcrcalPort; 
1f IPCNam2.TypeName <> 6 then 
begin 
. RepMsgPt.RetCode := WRONGARGS; 
exlt(XSTSFuTIOpen) 
end; 
vp := Arg2; 

1f IPCNam3.TypeName <> 6 then 
begin 
RepMsgPt.RotCode := WRONGARGS; 
exlt(XSTSFuTIOpen) 
end; 
env := Arg3; 

1f IPCNam4,TypeName <> then 
begin 
RepMsgPt.RetCode :» WRONGARGS; 
exlt(XSTSFunOpen) 
end; 
fontName := Arg4; 
1f IPCNam6.TypeName <> then 
begin 
RepMsgPt.RetCode :« WRONGARGS; 
exlt(XSTSFullOpen) 
end; 
doWrap ; a Arg5; 
1f IPCNam6.TypeName <> 1 then 
begin 
RepMsgPt.RetCode :» WRONGARGS; 
exlt(XSTSFullOpen) 
end; 

dlspPages : a Arg6; 
end; 
RepMsgPt.Arg7 :« STSFul10pen( 
ServPort, 

vp, 

env, 

fontName, 

doWrap, 

dlspPages) ; 
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with RepMsgPt do 
begin 

IPCNam7.InLine := TRUE; 

IPCNam7. Deallocate := FALSE; 

IPCNam7.LongForm := FALSE; 

IPCNam7.TypeName := 6; 

IPCNam7.TypeSizeInBits := 32; 

IPCNam7.Num0bjects := 1; 
end 
end; 

Procedure XSTSFu"MOpenWindow(InP, ReP : POINTER); 



type 




MyMessage = record 


head : Msg; 


IPCNam2 


TypeType; 


Arg2 


Window; 


IPCNam3 


TypeType; 


Arg3 


port; 


IPCNam4 


TypeType; 


Arg4 


TSString265; 


IPCNamS 


TypeType; 


Arg5 


, boolean; 


IPCNam6 


: TypeType; 


Arg6 


: Integer 


end; 


type 


RepMessage - record 


head : Msg; 


RetCodeType : TypeType; 


RetCode : GeneralReturn; 


IPCNam7 : TypeType; 


Arg7 : Typescript 


end; 


type 


ptrMyMsg = tMyMessage; 


ptrRepMsg = tRepMessage; 


var 


M.yMsgP : ptrMyMsg; 


RepMsgP : ptrRepMsg; 


ServPort : Port; 


w : Window; 


env : port; 


fi-vn + Wpma . TQC+ r» 4 nn9RR . 

i Wit wituiiio • luwui hiijuvvi 


doWrap : boolean; 


dispPages 


: Integer; 
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begin 
MyMsgP := RECAST(InP.ptrMyMsg) ; 
RepMsgP := RECAST(ReP.ptrRepMsg) ; 
RepMsgPt.RetCode := Success; 
with RepMsgPt.head do 
begin 
Slmplemsg := FALSE; 
MsgSIze := 36; 
MsgType := NormalMsg; 
ID : = 2903 
end; 
with MyMsgPt do 
begin 
ServPort := head.LocalPort; 
1f IPCNam2.TypeName <> 8 then 
begin 
RepMsgPt.RetCode := WRONGARGS; 
ex1t(XSTSFu1l0penW1ndow) 
end; 
w := Arg2; 

1f IPCNam3.TypeName <> 6 then 
begin 
RepMsgPt.RetCode := WRONGARGS; 
ex1t(XSTSFun0penW1ndow) 
end; 
env : s Arg3; 

1f IPCNam4.TypeNarce <> then 
begin 
RepMsgPt.RetCode := WRONGARGS; 
ex1t(XSTSFul"IOpenW1ndow) 
end; 
fontName := Arg4; 
1f IPCf!am5.TypeName <> then 
begin 
RepMsgPt.RetCode := WRONGARGS; 
ex1t(XSTSFu1l0penW1ndow) 
end; 
doWrap := Arg6; 
1f IPCNam8.TypeName <> 1 then 
begin 
RepMsgPt.RetCode := WRONGARGS; 
exit(XSTSFimOpenWlndQw) 
end; 
dlspPages : a Arg6; 
end; 
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RepMsgPt.Arg7 := STSFullOpanWindow( 
ServPort, 

env, 

fontName, 
doWrap, 
dispPages); 
with RepMsgPt do 
begin 
IPCNam7.InL1ne := TRUE; 
IPCNam7. Deallocate := FALSE; 
IPCNam7.LongForm := FALSE; 
IPCNam7.TypeName := 6; 
IPCNam7.TypeSizeInBits := 32; 
IPCNam7.Num0bjects :- 1; 
end 
end; 

Procedure XSTSFullL1ne(InP, ReP : POINTER); 



type 




MyMessage 


= record 


head : 


Msg 


end; 




type 




RepMessagf 


5 = record 


head 


: Msg; 


RetCodeType : - TypeType ; 


RetCode 


: GeneralReturn; 


IPCNamZ ; 


! TypeType; 


Arg2 


: boolean 


end; 




type 




ptrMyMsg 


= tMy Mess age; 


ptrRepMsg 


= tRepMessage; 


var 




MyMsgP : 


ptrMyMsg; 


RepMsgP : 


ptrRepMsg; 


ServPort 


: Port; 
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begin 
MyMsgP := RECAST(InP.ptrMyMsg) ; 
RepMsgP := RECAST(ReP, ptrRepMsg) ; 
RepMsgPt.RetCode := Success; 
with RepMsgPt.head do 
begin 
Simplemsg := TRUE; 
MsgSIze := 34; 
MsgType := NormalMsg; 
ID := 2904 
end; 
with MyMsgPt do 
begin 

ServPort := head.LocalPort; 
end; 
RepMsgPt.Arg2 := STSFullL1ne( 

ServPort) ; 
with RepMsgPt do 
begin 
IPCNam2.InL1ne := TRUE; 
IPCNam2. Deallocate := FALSE; 
IPCNam2.LongForm :* FALSE; 
IPCNam2.TypeName : a 0; 
IPCNam2.TypoS1zeInB1ts :* 1; 
IPCNam2.NumObjects :■ 1; 
end 
end; 

Procedure XSTSGetChar(InP, ReP : POINTER); 



type 




MyMessage 


= record 


head : 


Msg 


end; 




type 




RepMessage s record 


head 


: Msg; 


RetCodeType : TypeType; 


RetCode 


: GeneralReturn; 


IPCNam2 


: TypeType; 


Arg2 


: char 


end; 




type 




ptrMyMsg 


■ tMyMessage; 


ptrRepMsg 


= fRepMessage; 


var 




MyMsgP : 


ptrMyMsg; 


RepMsgP : 


ptrRepMsg; 


ServPort 


: Port; 
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begin 
MyMsgP := RECAST( InP, ptrMyMsg) ; 
RepMsgP := RECAST(ReP, ptrRepMsg) ; 
RepMsgPt.RetCode := Success; 
with RepMsgP*. head do 
begin 

Simplemsg := TRUE; 
MsgSIze := 34; 
MsgType := NormalMsg; 
ID := 2906 
end; 
with MyMsgP* do 
begin 

ServPort := head.LocalPort; 
end; 
RepMsgP*. Arg2 := STSGetChar( 

ServPort); 
with RepMsgP* do 
begin 
IPCNam2.InL1ne := TRUE; 
IPCNam2. Deallocate := FALSE; 
IPCNama.LongForm := FALSE; 
IPCNam2.TypeName :- 8; 
IPCNam2.TypeSizeInB1ts := 8; 

TPPMnm? &hjmfiMac+5s * =» "It 

end 
end; 

Procedure XSTSGetString(InP t ReP : POINTER); 

type 
MyMassaga s record 

head : Msg 
end; 

type 
RepMessage ■ record 

head : Msg; 

RetCodeType : TypeType; 

RetCodo : GeneralReturn; 

IPCNam2 : TypeType; 

Arg2 : TSStr1ng266 
end; 
type 
ptrMyMsg = *MyMessage; 
ptrRepMsg s tRepMessage; 
var 
MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
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begin 
MyMsgP := RECAST(InP, ptrMyMsg) ; 
RepMsgP := RECAST(ReP, ptrRepMsg) ; 
RepMsgPt.RetCode := Success; 
with RepMsgPt.head do 
begin 
Slmplemsg : s TRUE; 
MsgSIze := 288; 
MsgType := NormalMsg; 
ID := 2906 
end; 
with MyMsgPt do 
begin 

ServPort := head.LocalPort; 
end; 
RepMsgPt.Arg2 := STSGetStr1ng( 

ServPort) ; 
with RepMsgPt do 
begin 
IPCNam2.InL1ne := TRUE; 
IPCNam2. Deal locate :■ FALSE; 
IPCNam2.LongForm := FALSE; 
IPCNam2.TypeName :■ 0; 
IPCNam2.TypeS1zeInB1ts : a 8; 
IPCNam2.Num0bjects :■ 256; 
end 
end; 

Procedure XSTSPutChar(InP, ReP : POINTER); 

type 
MyMessage = record 

head : Msg; 

IPCNam2 : TypeType; 

Arg2 : char 
end; 

type 
RepMessage = record 
head : Msg; 
RetCodeType : TypeType; 
RetCode : GeneralReturn 
end; 
type 
ptrMyMsg ■ tMyMessage; 
ptrRepMsg = tRepMessage; 
var 
MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
ch : char; 
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begin 
MyMsgP := RECAST(InP, ptrMyMsg); 
RepMsgP := RECAST(ReP, ptrRepMsg) ; 
RepMsgPt.RetCode := Success; 
with MyMsgPt do 
begin 

ServPort := head.LocalPort; 
if IPCNam2.TypeName <> 8 then 
begin 
RepMsgPt.RetCode := WRONGARGS; 
exlt(XSTSPutChar) 
end; 
ch := Arg2; 
end; 
STSPutChar( 
ServPort, 
ch); 
RepMsgPt.RetCode := NoReply 
end; 

Procedure XSTSPutString(InP, ReP : POINTER); 

type 

MyMessage ■ record 
head : Msg; 
IPCNam2 : TypeType; 
Arg2 : TSString266 
end; 

type 
RepMessage = record 
head 

RatCodeType 
RetCode 
end; 
type 
ptrMyMsg - tM.yMessage; 
ptrRepMsg ■ tRepMessage; 
var 
MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
s : TSString255; 



Msg; 

TypeType; 

GeneralReturn 
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begin 
MyMsgP := RECAST(InP, ptrMyMsg) ; 
RepMsgP := RECAST(ReP,ptrRepMsg) ; 
RepMsgPt.RetCode := Success; 
with MyMsgP* do 
begin 
ServPort := head.LocalPort; 
if IPCNam2.TypeName <> then 
begin 
RepMsgPt.RetCode := WRONGARGS; 
exlt(XSTSPutStrlng) 
end; 
s := Arg2; 
end; 
STSPutStr1ng( 
ServPort, 
s); 

RepMsgPt.RetCode := NoReply 
end; 

Procedure XSTSFlushInput(InP, ReP : POINTER); 

type 
MyMessage = record 

head : Msg 
end; 

type 
RepMessage =» record 
head : Msg; 
RetCodeType : TypeType; 
RetCode : GeneralReturn 
end; 
type 
ptrMyMsg » tMyMessage; 
ptrRepMsg = tRepMessage; 
var 
MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
SorvPort : Port; 

begin 
MyMsgP := RECAST(InP, ptrMyMsg) ; 
RepMsgP :« RECAST(ReP, ptrRepMsg) ; 
RepMsgPt.RetCode : a Success; 
with MyMsgPt do 
begin 

ServPort := head.LocalPort; 
end; 
STSFlushInput( 

ServPort); 
RepMsgPt.RetCode :■ NoReply 
end; 
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Procedure XSTSFlushOutput(InP, ReP : POINTER); 

type 
MyMessage = record 

head : Msg 
end; 

type 
RepMessage = record 
head : Msg; 
RetCodeType : TypeType; 
RetCode : GeneralReturn 
end; 
type 
ptrMyMsg ■ tMyMessage; 
ptrRepMsg = tRepMessage; 
var 

. MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 

begin 
MyMsgP := RECAST(InP, ptrMyMsg); - 
RepMsgP := RECAST (ReP.ptrRepMsg) ; 
RepMsgPt. RetCode := Success; 

w i uii nupi'ioyr ■ . uoau uu 

begin 
Slmplemsg := TRUE; 
MsgSIze :* 23; 
MsgType := NormalMsg; 
ID := 2910 
end; 
with MyMsgPt do 
begin 

ServPort :■ head.LocalPort; 
end; 
STSF1ush0utput( 

ServPort) ; 
with RepMsgPt do 
begin 
end 
end; 
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Procedure XSTSChangeEnv(InP, ReP : POINTER); 

type 
MyMessage ■ record 

head : Msg; 

IPCNam2 : TypeType; 

Arg2 : port 
end; 

type 
RepMessage » record 
head : Msg; 
RetCodeType : TypeType; 
RetCode : GeneralReturn 
end; 
type 
ptrMyMsg = tMyMessage; 
ptrRepMsg = tRepMessage; 
var 
MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
env : port; 

begin 
MyMsgP := RECAST( InP, ptrMyMsg) ; 
RepMsgP := RECAST(ReP, ptrRepMsg) ; 
RepMsgPt. RetCode := Success; 
with MyMsgPt do 
begin 

ServPort : a head.LocalPort; 
1f IPCNam2.TypeName <> 6 then 
begin 
RepMsgPt. RetCode :» WRONGARGS; 
exlt(XSTSChangeEnv) 
end; 
env :=* Arg2; 
end; 
STSChangeEnv( 
ServPort, 
env); 
RepMsgPt. RetCode :=» NoReply 
end; 
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Procedure XSTSGrabW1ndow(InP, ReP : POINTER); 

type 
MyMessage = record 

head : Msg; 

IPCNam2 : TypeType; 

Arg2 : port 
end; 

type 
RepMessage = record 



Msg; 

TypeType; 

GeneralReturn; 



head 

RetCodeType 

RetCode 

IPCNam3 : TypeType; 

Arg3 : Window 
end; 
type 
ptrMyMsg = *MyMessage; 
ptrRepMsg = tRepMessage; 
van 
MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
kPort : port; 

begin 
MyMsgP := RECAST(InP, ptrMyMsg); 
RepMsgP := RECAST(ReP, ptrRepMsg) ; 
RepMsgP*. RetCode ;= Success; 
with RepMsgP*. head do 
begin 

Simplemsg :» FALSE; 
MsgSize :» 36; 
MsgType :■ NormalMsg; 
ID := 2912 
end; 
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with MyMsgPt do 
begin 
ServPort := head.LocalPort; 
1f IPCNam2.TypeName <> 6 then 
begin 
RepMsgPt.RetCode := WRONGARGS; 
ex1t(XSTS6rabW1ndow) 
end; 
kPort := Arg2; 
end; 
RepMsgPt.Arg3 := STSGrabW1ndow( 
ServPort, 
kPort); 
with RepMsgPt do 
begin 
IPCNam3.InL1ne := TRUE; 
IPCNam3. Deallocate := FALSE; 
IPCNam3.LongForm := FALSE; 
IPCNam3.TypeName := 6; 
IPCNam3.TypeSizeIn81ts :» 32; 
IPCNam3.Num0bjects :■ 1; 
end 
end; 

Procedure XSTSPutCharArray(InP, ReP : POINTER); 



type 




MyMessage 


■ record 


head : 


Msg; 


IPCNam2 


TypeType; 


TName2 


Integer; 


TS1ze2 


Integer; 


NumElts2 


long; 


Apg2 


pTSChapArray; 


IPCNam3 


TypeType; 


Apg3 


Integep; 


IPCNam4 


TypeType; 


Arg4 


Integep 


end; 




type 




RepMessag< 


j ■ record 


head 


: Msg; 


RetCodeTj 


,rpe : TypeType; 


RetCode 


: GeneralRetupn 


end; 




type 




ptpMyMsg 


= tMyMessage; 


ptpRepMsg 


= tRepMessage; 
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var 
MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
chars : pTSCharArray; 
char_count : long; 
firstCh : Integer; 
lastCh : Integer; 

begin 
MyMsgP := RECAST(InP.ptrMyMsg) ; 
RepMsgP := RECAST(ReP.ptrRepMsg) ; 
RepMsgP*. RetCode := Success; 
with MyMsgP* do 
begin 

ServPort := head.LocalPort; 
1f TName2 <> 8 then 
begin 
RepMsgP*. RetCode :■ WRONGARGS; 
exit(XSTSPutCharArray) 
end; 
char_count :- NumEltsZ; 
chars := Arg2; 

1f IPCNam3.TypeName <> 1 then 
begin 
RepMsgP*. RetCode := WRONGARGS; 
exit(XSTSPutCharArray) 
end; 
firstCh := Arg3; 
if IPCNam4.TypeName <> 1 then 
begin 
RepMsgP*. RetCode := WRONGARGS; 
exit(XSTSPutCharArray) 
end; 

lastCh : a Arg4; 
end; 
STSPutCharArray( 
ServPort, 
chars, 
char_count, 
firstCh, 
lastCh); 
RepMsgP*. RetCode :» NoReply 
end; 
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Function TSServ8r(InP, RepP : POINTER): boolean; 
type 
RepMessage ■ record 



Msg; 

TypeType; 

GeneralReturn; 



head 

RetCodeType 

RetCode 
end; 

ptrRepMessage = tRepMessage; 
var 
InMsgP : ptrMsg; 
RepMsgP : ptrRepMessage; 

begin 
InMsgP := RECAST(InP.ptrMsg) ; 
RepMsgP := RECAST(RepP, ptrRepMessage) ; 
with RepMsgPt.Head do 
begin 
LocalPort := InMsgPt. LocalPort; 
RemotePort := InMsgPt.RemotePort 
end; 
with RepMsgPt. RetCodeType do 
begin 
TypeName := TYPEINT16; 
TypeSlzelnBits : a 16; 
NumObjects := 1; 
InLlne := true; 
LongForm : s false; 
Deallocate :- false 
end; 
TSServer := True; 
with InMsgPt do 
case shrlnk(ID) of 
2800: XSTSOpen(InP,RepP); 
2801: XSTSOponWindow(InP.RepP); 
2802: XSTSFullOpen(InP.RepP); 
2803: XSTSFull0penW1ndow(InP,RepP); 
2804: XSTSFullL1ne(InP,RepP); 
2805: XSTSGetChar(InP.RepP); 
2806: XSTSGetString(InP.RepP); 
2807: XSTSPutChar(InP.RepP); 
2808: XSTSPutString(InP,RepP); 
2809: XSTSFlushlnput(InP.RepP); 
2810: XSTSFlushOutput(InP.RepP); 
2811: XSTSChangeEnv(InP,RepP); 
2812: XSTSGrabWindow(InP.RepP); 
2813: XSTSPutCharArray(InP.RepP); 
Otherwise: begin 

TSServer : a False; 
RepMsgP*. RetCode :- BADMSGID 
end 
end 
end, 
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1 1.2.4. TsDefs.slisp 

This file contains Accent Lisp types. 
;; -*-Lisp-*- 

;; Matchmaker generated types and constants definitions file for TS 



;;;; THIS FILE SHOULD NOT BE HAND EDITED 

To change this interface, edit the Interface matchmaker 
file and run it through matchmaker to generate this file. 



(in-package "TSDEFS") 
(use-package "MMINTERNALDEFS") 
(use-package "BUILTINDEFS") 

(use-package "ACCINTDEFS") 

(use-package "SAPPHDEFSDEFS") 

(defoperator (Typescript-op port) ((alien port)) ' (alien-value , alien)) 
(defmacro access-Typescript (alien) 

(alien-access (Typescript-op , alien) port)) 

(defoperator (TSString255-op simple-string) ((alien (perq-string 256))) * 
(alien-value , alien)) 

(defmacro access-TSString255 (alien) 

(alien-access (TSStr1ng256-op , alien) simple-string)) 

(defmacro access-TSCharArray (a 1) 
i 

(alien-access (1ndex-TSCharArray , a , i) string-char)) 

(defoperator (index-TSCharArray string-char) ((a TSCharArray) i) • 
(alien-Index (alien-value , a) (* , 1 16) 8)) 

(defoperator (derof-pTSCharArray TSCharArray) 

((p (ref TSCharArray)) size-1n-b1ts) * 
(alien-indirect (alien-value , p) , s1ze-1n-b1ts)) 

(defmacro address-pTSCharArray (alien) 

(al Ion-access , alien system-area-pointer)) 

(export 
'(pTSCharArray address-pTSCharArray deref-pTSCharArray TSCharArray 
Index-TSCharArray access-TSCharArray TSStr1ng255 access-TSStr1ng255 
TSString255-op Typescript access-Typescript Typescript-op)) 
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1 1.2.5. TsUser.slisp 

This file is the Accent Lisp user interface. 
-*-L1sp-*- 

Matchmaker generated user Interface file for TS 



THIS FILE SHOULD NOT BE HAND EDITED 

To change this Interface, edit the Interface matchmaker 
file and run it through matchmaker to generate this file. 



(1n-package "TSUSER") 
(use-package "TSDEFS") 
(use-package "BUILTINDEFS") 
(use-package "MMINTERNALDEFS") 



(use-package "ACCINTUSER") 
(defvar *rece1veport* NIL) 
(defconstant Interface-backlog 0) 

(use-package "SAPPHDEFSDEFS") 
(use-package "ACCINTDEFS") 



TS-Send — Internal 

Send macro for TS 

(defmacro TS-Send (msg argblock wa1t-t1me send-option) 
"User send macro for Interface TS" 

(cond ((flxnump *rece1veport*) 

(alien-store (msg-localport-op , msg) port *rece1veport*) 
(send , argblock , wa1t-t1me , send-option)) 
(t 
notaport))) 



User side Interface Initialization function. 

(defun TS-Init (user-port) 

"The user side 1nt1al1zation function* 
(cond ((eql user-port nullport) 

(multlple-value-bind (gr port) (allocateport kernelport Interface-backlog) 
(1f (eql gr success) (setq *rece1veport* port) 
(setq *rece1veport* dataport)) 

gr)) 

(t 
(setq *rece1veport* user-port) 
success))) 
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STSOpen — public 

User-side remote procedure call Interface. 

(defun STSOpen (Remote_Port vp env) 

"The user side of remote procedure STSOpen" 
(prog (R_e_s_u_l_t 

(send-walttime 0) 

(send-option 0) 

(recelve-waittlme 0) 

gr) 

(alien-bind ((to to-STSOpen to-STSOpen)) 
(alien-store 
(msg-remoteport-op (Msgize-to-STSOpen-op (alien-value to))) port 

Remote_Port) 
(alien-store (to-STSOpen-vp-op (alien-value to)) port vp) 
(alien-store (to-STSOpen-env-op (alien-value to)) port env) 
(setq gr 

(TS-send (Msg1ze-to-STS0pen-op (alien-value to)) to-STSOpen 
send-waittime send-option))) 
(alien-bind ((from from-STSOpen from-STSOpen)) 
(cond ((eql gr success) 
(alien-store 
(msg-msgsize-op 

(Msgize-from-STSOpen-op (alien-value from))) 
(signed-byte 32) 36) 
(alien-store 
(msg-localport-op 

(Msgize-from-STSOpen-op (alien-value from))) 
port *ReceivePort*) 
(setq gr 

(receive from-STSOpen receive-waittima localpt 
receivelt)) 
(cond ((not (aql gr success)) 
NIL 
(return gr)) 

((■ 

(access-msg-id 

(Msgize-from-STSOpen-op (alien-value from))) 
2900) 
(cond ((■ 

(access-typetypel-typename 
(msg-retcode-typetype1-op 
(Msgize-from-STSOpen-op 
(alien-value from)))) 

1) 
(setq gr 

(access-msg-retcode 
(Msgize-frcm-STSOpen-op 
(alien-value from))))) 
(t 
NIL 
(return badreply))) 
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(cond ((eql 

(access-typetypel-typename 
(from-STSOpen-R_e_s_u_l_t-typetypeI-op 
(alien-value from))) 

(setq R_e_s_u_l_t 

(access-from-STSOpen-R_e_s_u_l_t 
(alien-value from)))) 
(t 
NIL 

(return BADREPLY))) 
NIL 

(return (values R_e s u_l_t))) 
(t 
NIL 

(return 
(user-alternate-return 
(Msgize-from-STSOpen-op (alien-value from))))))) 
(t 
NIL 

(return gr)))))) 
STSOpenWIndow — public 

User-side remote procedure call Interface. 

(defun STSOpenWIndow (Remote_Port w env) 

"The user side of remote procedure STSOpenWIndow" 
(prog (R_e_s_u_l_t 

(send-waittime 0) 

(send-optlon 0) 

(recelve-walttime 0) 

gr) 

(alien-bind ((to to-STSOpenW1ndow to-STSOpenW1ndow)) 
(alien-store 
(msg-remoteport-op (Msg1ze-to-STSOpenW1ndow-op (alien-value to))) 
port Romote_Port) 

(alien-store (to-STSOpenW1ndow-w-op (alien-value to)) port w) 
(alien-store (to-STS0penW1ndow-env-op (alien-value to)) port env) 
(setq gr 

(TS-send (Msg1ze-to-STSOpenW1ndow-op (alien-value to)) 
to-STS0penW1ndow send-waittlme send-optlon))) 
(al1en-b1nd ((from from-STS0penW1ndow from-STSOpenW1ndow)) 
(cond ((eql gr success) 
(alien-store 
(msg-msgs1ze-op 

(Msg1ze-from-STS0penW1ndow-op (alien-value from))) 
(slgned-byte 32) 36) 
(alien-store 
(msg-localport-op 

(Msg1ze-from-STSOpenW1ndow-op (alien-value from))) 
port *Rece1vePort') 
(setq gr 

(receive from-STSOpenW1ndow recelve-walttime localpt 
recelvelt)) 
(cond ((not (eql gr success)) 
NIL 
(return gr)) 

((- 
(access-msg-1d 
(Msg1ze-from-STS0penW1ndow-op (alien-value from))) 
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2901) 
(cond ((■ 

( access- typetypel-typename 
(ms g-retcode- type type 1 -op 
(Msgize-f rom-STSOpenWindow-op 
(alien-value from)))) 

1) 
(setq gr 

(access-msg-retcode 
(Msg1ze-from-STS0penW1ndow-op 
(alien-value from))))) 
(t 
NIL 

(return badreply))) 
(cond ((eql 

(access-typetypel-typename 
(from-STSOpenWindow-R_e_s_u_l_t-typetypeI-op 
(alien-value from))) 
6) 
(setq R_e_s_u_l_t 

(access-from-STS0penW1ndow-R_e_s_u_l_t 
(alien-value from)))) 
(t 
NIL 

(return BADREPLY))) 
NIL 

(return (values R_e_s_u l_t))) 
(t 
NIL 

(return 
(user-alternate-return 
fMsg1ze-from-STSQpenW1ndow-op fallen-value from)^)^)) 
(t 
NIL 
(return gr)))))) 
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STSFullOpen — public 

User-side remote procedure call Interface. 

(defun STSFullOpen (Remote_Port vp env fontName doWrap dispPages) 
"The user side of remote procedure STSFullOpen" 
(prog (R_e_s_u_l_t 

(send-wa1tt1me 0) 

(send-optlon 0) 

(receive-walttime 0) 

gr) 

(alien-bind ((to to-STSFullOpen to-STSFullOpen)) 
(al 1en-store 
(msg-remoteport-op (Msg1ze-to-STSFullOpen-op (alien-value to))) 
port Remote_Port) 

(alien-store (to-STSFullOpen-vp-op (alien-value to)) port vp) 
(alien-store (to-STSFullOpen-env-op (alien-value to)) port env) 
(alien-store (to-STSFullOpen-fontName-op (alien-value to)) 

simple-string fontName) 
(alien-store (to-STSFullOpen-doWrap-op (alien-value to)) boolean 

doWrap) 
(alien-store (to-STSFullOpen-d1spPages-op (alien-value to)) 

(signed-byte 16) dispPages) 
(setq gr 

(TS-send (Msg1ze-to-STSFull0pen-op (alien-value to)) 
to-STSFullOpen send-waittlme sand-option))) 
(alien-bind ((from from-STSFullOpen from-STSFullOpen)) 
(cond ((eql gr success) 
(alien-store 
(msg-msgs1ze-op 

(Msgize-from-STSFullOpen-op (alien-value from))) 
(signed-byte 32) 36) 
(alien-store 
(msg-localport-op 

(Msgize-from-STSFullOpen-op (alien-value from))) 
port *Rece1vePort*) 
(setq gr 

(receive from-STSFullOpen recelve-walttlme localpt 
recelveit)) 
(cond ((not (eql gr success)) 
NIL 
(return gr)) 

«■ 

(access-msg-1d 

(Msgize-from-STSFullOpen-op (alien-value from))) 
2902) 
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(cond ((■ 

( access- typetypei-typename 
(msg-ratcode-typetypel-op 
(Msg1ze-f rom-STSFullOpan-op 
(alien-value from)))) 

1) 
(setq gr 

(access-msg-retcode 
(Msg1ze-f rom-STSFul lOpen-op 
(alien-value from))))) 
(t 
NIL 

(return badreply))) 
(cond ((eql 

(access- typetypei-typename 
(from-STSFullOpen-R_e_s_u_l_t-typetypeI-op 
(alien-value from))) 
6) 
(setq R_e_s_u_l_t 

(access-from-STSFullOpen-R_e_s_u_l_t 
(alien-value from)))) 
(t 
NIL 

(return BADREPLY))) 
NIL 

(return (values R_e_s_u_l_t))) 
(t 
NIL 

(return 
(user-alternate-return 
(Msg1ze-from-STSFull0pen-op (alien-value from))))))) 
(t 
NIL 
(return gr)))))) 
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STSFullOpenWIndow — public 

User-side remote procedure call Interface. 

(defun STSFullOpenWIndow (Remote_Port w env fontName doWrap dispPages) 
"The user side of remote procedure STSFullOpenWIndow" 
(prog (R_e_s_u_l_t 

(send-wa1tt1me 0) 

(send-optlon 0) 

(rece1ve-wa1ttime 0) 

gr) 

(al1en-b1nd ((to to-STSFul!0penW1ndow to-STSFul!OpenW1ndow)) 
(alien-store 
(msg-remoteport-op 

(Msg1ze-to-STSFullOpenW1ndow-op (alien-value to))) 
port Remote_Port) 

(alien-store (to-STSFull0penW1ndow-w-op (alien-value to)) port w) 
(alien-store (to-STSFull0penW1ndow-env-op (alien-value to)) port 

env) 
(alien-store (to-STSFull0penW1ndow-fontName-op (alien-value to)) 

simple-string fontName) 
(alien-store (to-STSFullOpenW1ndow-doWrap-op (alien-value to)) 

boolean doWrap) 
(alien-store (to-STSFull0penW1ndow-d1spPages-op (alien-value to)) 

(slgned-byte 16) dispPages) 
(setq gr 

(TS-send (Msg1ze-to-STSFull0penW1ndow-op (alien-value to)) 
to-STSFull0penW1ndow sond-wa1tt1me send-optlon))) 
(al1en-b1nd ((from from-STSFullOpenW1ndow f rom-STSFullOpenWIndow)) 
(cond ((eql gr success) 
(alien-store 
(msg-msgs1ze-op 
(Msg1ze-from-STSFullOpenW1ndow-op (alien-value from))) 
(slgned-byte 32) 36) 
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(alien-store 
(msg-localport-op 

(Msglzerfrom-STSFullOpenWIndow-op (alien-value from))) 
port *Rece1vePort*) 
(setq gr 

(receive from-STSFullOponWIndow rece1ve-vva1tt1me 
localpt recelvelt)) 
(cond ((not (eql gr success)) 
NIL 
(return gr)) 

((■ 
(access-msg-1d 
(Msg1z9-from-STSFullOpenW1ndow-op 
(alien-value from))) 
2903) 
(cond ((■ 

( access- typetypel-typenama 
(msg-retcode-typetype1-op 
(Msg1ze-f rom-STSFull0penW1ndow-op 
(alien-value from)))) 

1) 
(setq gr 

(access-msg-retcode 
(Msg1ze-from-STSFullOpenW1ndow-op 
(alien-value from))))) 
(t 
NIL 

(return badreply))) 
(cond ((eql 

(access-typetypel-typename 
(from-STSFull0p3nW1ndow-R_e_s_u_l_t-typetypeI-op 

/ -i J -i -o _\ \ V 

(a 1 1wn-va iuo iruftijjj 

6) 
(setq R_e_s_u_l_t 

(accoss-from-STSFullOpsnW1ndow-R_e_s_u_l_t 
(alien-value from)))) 

(t 
NIL 

(return BADREPLY))) 
NIL 

(return (values R_e_s_u_l_t))) 
(t 
NIL 

(return 
(user-alternate-return 
(Msgize-from-STSFullOpenW1ndov»-op 
(alien-value from))))))) 

(t 
NIL 
(return gr)))))) 
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STSFullLlne — public 

User-side remote procedure call Interface. 

(defun STSFullLlne (Remote_Port) 

"The user side of remote procedure STSFullLlne" 
(prog (R_e_s_u_l_t 

(send-wa1tt1me 0) 

(send-optlon 0) 

(rece1ve-wa1tt1me 0) 

gr) 

(alien-bind ((to to-STSFullUne to-STSFullL1ne)) 
(alien-store 
(msg-remoteport-op (Msg1ze-to-STSFullL1ne-op (alien-value to))) 
port Remote_Port) 
(setq gr 

(TS-send (Msg1ze-to-STSFullL1ne-op (alien-value to)) 
to-STSFullUne send-wa1tt1me send-optlon))) 
(alien-bind ((from from-STSFullLine from-STSFullL1ne)) 
(cond ((eql gr success) 
(alien-store 
(msg-msgs1ze-op 
(Msg1ze-from-STSFullL1ne-op (alien-value from))) 
(slgned-byte 32) 34) 
(alien-store 
(msg-localport-op 

(Msg1ze-from-STSFullL1ne-op (alien-value from))) 
port *Rece1vePort*) 
(setq gr 

(receive from-STSFullL1ne rece1ve-wa1tt ime localpt 
recelvelt)) 
(cond ((not (eql gr success)) 
NIL 
(return gr)) 

H- 
(access-msg-1d 
(Msg1ze-from-STSFullL1ne-op (alien-value from))) 
2904) 
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(cond ((■ 

(access- type type i-typename 
(msg-retcode-typetype1-op 
(Msgize-f rom-STSFull Line-op 
(alien-value from)))) 

1) 
(setq gr 

(access-msg-retcode 
(Hsgize-f rom-STSFull Line-op 
(alien-value from))))) 
(t 
NIL 

(return badreply))) 
(cond ((eql 

(access-typetypei-typename 
( f rom-STSFull Li ne-R_e_s_u_l_t-typetypeI-op 
(alien-value from))) 

0) 
(setq R_e_s_u_l_t 

(access-f rom-STSFull Li ne-R_e_s_u_l_t 
(alien-value from)))) 
(t 
NIL 

(return BADREPLY))) 
NIL 

(return (values R_e_s_u_l_t))) 
(t 
NIL 

(return 
(user-alternate-return 
(Msgize-from-STSFullLine-op (alien-value from))))))) 
(t 
NIL 
(return gr)))))) 
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STSGetChar — public 

User-side remote procedure call Interface. 

(defun STSGetChar (Remote_Port) 
"The user side of remote procedure STSGetChar" 
(prog (R_e_s_u_l_t 

(send-wa1tt1me 0) 

(send-optlon 0) 

(receive-wa1tt1me 0) 

gr) 

(alien-bind ((to to-STSGetChar to-STSGetChar)) 
(alien-store 
(msg-remoteport-op (Msg1ze-to-STSGetChar-op (alien-value to))) 
port Remote_Port) 
(setq gr 

(TS-send (Msg1ze-to-STSGetChar-op (alien-value to)) 
to-STSGetChar send-walttime send-optlon))) 
(al1en-b1nd ((from from-STSGetChar from-STSGetChar)) 
(cond ((eql gr success) 
(alien-store 
(msg-msgs1ze-op 
(Msg1ze-from-STSGetChar-op (alien-value from))) 
(slgned-byte 32) 34) 
(alien-store 
(msg-localport-op 

(Msg1ze-from-STSGetChar-op (alien-value from))) 
port *Rece1vePort*) 
(setq gr 

(receive from-STSGetChar rece1ve-wa1tt1me localpt 
recelvelt)) 
(cond ((not (eql gr success)) 
NIL 
(return gr)) 

((- 

(access-msg-1d 
(Msg1ze-from-STSGetChar-op (alien-value from))) 
2906) 
(cond ((■ 

( access -typetypel-typename 
(msg-retcode-typetype1-op 
(Msg1ze-from-STSGetChar-op 
(alien-value from)))) 

1) 
(setq gr 

(access-msg-retcode 
(Msg1ze-from-STSGetChar-op 
(alien-value from))))) 
(t 
NIL 

(return badreply))) 
(cond ((eql 

(access-typetypel-typename 
(from~STSGetChar-R_e_s_u_l_t-typetypeI-op 
(alien-value from))) 
8) 
(setq R_e_s_u_1_t 

(access-from-STSGetChar-R_e_s_u_l_t 
(alien-value from)))) 
(t 
NIL 

(return BADREPLY))) 
NIL 
(return (values R_e_s_u_l_t))) 
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(t 
NIL 

(return 
(user-alternate- return 
(Msgize-from-STSGetChar-op (alien-value from))))))) 
(t 
NIL 
(return gr)))))) 



STSGetStMng — public 

User-side remote procedure call Interface. 

(defun STSGetStMng (Remote_Port) 

"The user side of remote procedure STSGetStMng" 
(prog (R_e_siu_l_t 

(send-walttime 0) 

(send-option 0) 

(receive-waittime 0) 

9"*) 
(alien-bind ((to to-STSGetStMng to-STSGetStr1ng)) 
(alien-store 
(msg-remoteport-op (Msg1ze-to-STSGetStr1ng-op (alien-value to))) 
port Remote_Port) 
(setq gr 

(TS-send (Msg1ze-to-STSGetStr1ng-op (alien-value to)) 
to-STSGetString send-waittime send-option))) 
(al1en-b1nd ((from from-STSGetStMng from-STSGetStMng)) 
(cond ((eql gr success) 
(alien-store 
(msg-msgsize-op 
(Msgize-from-STSGetStr1ng-op (alien-value from))) 
(slgned-byte 32) 288) 
(alien-store 
(msg-localport-op 
(Msgize-from-STSGetString-op (alien-value from))) 
port *ReceivePort*) 
(setq gr 

(receive from-STSGetStMng recelve-waittime localpt 
recelvelt)) 
(cond ((not (eql gr success)) 
NIL 
(return gr)) 

((- 
(access-msg-1d 

(Msgize-from-STSGetStMng-op (alien-value from))) 
2906) 
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(cond ((■ 

(access- typetypel-typename 
(msg-retcode-typetypei-6p 
(Msg1ze-from-STSGetString-op 
(alien-value from)))) 

1) 
(setq gr 

(access-msg-retcode 
(Msg1ze-from-STSG8tStr1ng-op 
(alien-value from))))) 
(t 
NIL 

(return badreply))) 
(cond ((eql 

(access- typetypel-typename 
(from-STSGetStr1ng-R_e_s_u_l_t-typetypeI-op 
(alien-value from))) 

0) 
(setq R_e_s_u_l_t 

(access-from-STSGetStr1ng-R_e_s_u_l_t 
(alien-value from)))) 
(t 
NIL 

(return BADREPLY))) 
NIL 

(return (values R_e s_u_l_t))) 
(t 
NIL 

(return 
(user-alternate-return 
(Msg1ze-from-STSGetStr1ng-op (alien-value from))))))) 
(t 
NIL 
(return gr)))))) 
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STSPutChar — public 

User-side message Interface. 

(defun STSPutChar (Remote_Port ch) 
"The user side of message STSPutChar" 
(let ((send-maxwalt 0) 
(send-option 0)) 
(al1en-b1nd ((to to-STSPutChar to-STSPutChar)) 
(alien-store 
(msg-remoteport-op (Msgize-to-STSPutChar-op (alien-value to))) 
port Remote_Port) 

(alien-store (to-STSPutChar-ch-op (alien-value to)) string-char 
ch)) 
(send to-STSPutChar send-maxwalt send-option))) 



STSPutStrlng — public 

User-side message Interface. 

(defun STSPutStrlng (Remote_Port s) 

"The user side of message STSPutStrlng" 
(let ((send-maxwalt 0) 
(send-option 0)) 
(alien-bind ((to to-STSPutStr1ng to-STSPutStr1ng)) 
(alien-store 
(msg-remoteport-op (Msgize-to-STSPutStr1ng-op (alien-value to))) 
port Remote_Port) 

(alien-store (to-STSPutString-s-op (alien-value to)) 
simple-string s)) 
(send to-STSPutString send-maxwalt send-option))) 

STSFlushlnput — public 

User-side message Interface. 

(defun STSFlushlnput (Remote_Port) 

"The user side of message STSFlushlnput" 
(let ((send-maxwait 0) 
(send-option 0)) 
(al1en-b1nd ((to to-STSFlushlnput to-STSFlushlnput)) 
(alien-store 
(msg-remoteport-op (Msg1ze-to-STSFlushInput-op (alien-value to))) 
port Remote_Port)) 
(send to-STSFlushlnput send-maxwait send-option))) 
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STSFlushOutput — public 

User-side remote procedure call Interface. 

(defun STSFlushOutput (Remote_Port) 

"The user side of remote procedure STSFlushOutput" 
(prog ((send-wa1tt1me 0) 
(sond-option 0) 
(recelve-walttime 0) 
gr) 
(a!1en-b1nd ((to to-STSFIushOutput to-STSFlushOutput)) 
(alien-store 
(msg-remoteport-op 

(Msg1ze-to-STSFlushOutput-op (alien-value to))) 
port Remote_Port) 
(setq gr 

(TS-send (Msg1ze-to-STSFlush0utput-op (alien-value to)) 
to-STSFlushOutput send-wa1tt1me send-optlon))) 
(al1en-b1nd ((from from-STSFlushOutput from-STSFlushOutput)) 
(cond ((eql gr success) 
(alien-store 
(msg-msgslze-op 

(Msg1ze-f rom-STSFlushOutput-op (alien-value from))) 
(slgned-byte 32) 28) 
(alien-store 
(msg-localport-op 

(Msg1ze-from-STSFlushOutput-op (alien-value from))) 
port *Rece1vePort*) 
(setq gr 

(receive from-STSFlushOutput rece1ve-wa1tt1me 
localpt recelvelt)) 
(cond ((not (eql gr success)) 
NIL 
•(return gr)) 

((- 
(access-msg-1d 
(Msgize-from-STSFlushOutput-op (allan-value from))) 
2910) 
(cond ((■ 

( access- typetypel-typename 
(msg-retcode-typetype1-op 
(Msg1ze-f rom-STSFl ushOutput-op 
(alien-value from)))) 

1) 
(setq gr 

(access-msg-retcode 
(Msg1ze-f rom-STSFl ushOutput-op 
(alien-value from))))) 
(t 
NIL 

(return badreply))) 
NIL 

(return (values))) 
(t 
NIL 

(return 
(user-al ternate-return 

(Msg1ze-f rom-STSFl ushOutput-op (alien-value from))))))) 
(t 
NIL 
(return gr)))))) 
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STSChangeEnv -- public 

User-side message Interface. 

(defun STSChangeEnv (R8mote_Port env) 
"The user side of message STSChangeEnv" 
(let ((send-maxwalt 0) 
(send-option 0)) 
(al1en-b1nd ((to to-STSChangeEnv to-STSChangeEnv)) 
(alien-store 
(msg-remoteport-op (Msg1ze-to-STSChangeEnv-op (alien-value to))) 
port Remote_Pcrt) 

(alien-store (to-STSChangeEnv-env-op (alien-value to)) port env)) 
(send to-STSChangeEnv send-maxwait send-option))) 



STSGrabWIndow — public 

User-side remote procedure call Interface. 

(defun STSGrabWIndow (Remote_Port kPort) 

"The user side of remote procedure STSGrabWIndow" 
(prog (R_e_s_u_l_t 

(send-wa1tt1me 0) 

(send-option 0) 

(recelve-waittlme 0) 

gr) 

(alien-bind ((to to-STSGrabW1ndow to-STSGrabW1ndow)) 
(alien-store 
(msg-remoteport-op (Msgize-to-STSGrabW1ndow-op (alien-value to))) 
port Remote_Port) 
(al ian-store (to-STSGrabWindow-kPort-op (alien-value to)) port 

kPort) 
(setq gr 

(TS-send (Msgize-to-STSGrabW1ndow-op (alien-value to)) 
to-STSGrabW1ndow send-wa1tt1me send-option))) 
(alien-bind ((from from-STSGrabW1ndow from-STSGrabWindow)) 
(cond ((eql gr success) 
(alien-store 
(msg-msgs1ze-op 

(Msgize-from-STSGrabWindow-op (alien-value from))) 
(slgned-byte 32) 36) 
(alien-store 
(msg-localport-op 
(Hsgize-from-STSGrabW1ndow-op (alien-value from))) 
port *Rece1vePort*) 
(setq gr 

(receive from-STSGrabW1ndow receive-walttlma localpt 
rsceivoit)) 
(cond ((not (eql gr success)) 
NIL 
(return gr)) 

((- 
(access-msg-1d 
(Msg1ze-from-STSGrabW1ndow-op (alien-value from))) 
2912) 
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(cond ((■ 

( access- typetypel-typename 
(msg-rotcode-typetypei-op 
(Msg1ze-f rom-STSGrabWIndow-op 
(alien-value from)))) 

1) 
(setq gr 

(access-msg-retcode 
(Msg1ze-from-STSGrabWindow-op 
(alien-value from))))) 
(t 
NIL 

(return badreply))) 
(cond ((eql 

(access- typetypel-typename 
(from-STSGrabWindow-R_e_s_u_l_t-typetypeI-op 
(alien-value from))) 

6) 
(setq R_e_SMi_l_t 

(access-f rom-STSGrabW1ndow-R_e_s_u_l_t 
(alien-value from)))) 
(t 
NIL 

(return BADREPLY))) 
NIL 

(return (values R_e_s_u l_t))) 
(t 
NIL 

(return 

(user-alternate- re turn 
(Msg1ze-from-STSGrabW1ndow-op (alien-value from))))))) 
(t 
NIL 
(return gr)))))) 



;;; STSPutCharArray — public 
; User-side message Interface. 

t t t 

(defun STSPutCharArray (Remote_Port chars char_count flrstCh lastCh) 
"The user side of message STSPutCharArray" 
(let ((send-maxwalt 0) 
(send-option 0)) 
(alien-bind ((to to-STSPutCharArray to-STSPutCharArray)) 
(alien-store 
(msg-remoteport-op 

(Msglze-to-STSPutCharArray-op (alien-value to))) 
port Remote_Port) 
(alien-store 
(to-STSPutCharArray-chars-TypeNumObjects-Op (alien-value to)) 
(slgned-byte 32) char_count) 
(alien-store (to-STSPutCharArray-chars-op (alien-value to)) 

systom-area-polnter chars) 
(alien-store (to-STSPutCharArray-f 1rstCh-op (alien-value to)) 

(slgned-byte 16) flrstCh) 
(alien-store (to-STSPutCharArray-lastCh-op (allon-value to)) 
(slgned-byte 16) lastCh)) 
(send to-STSPutCharArray send-maxwalt send-option))) 
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; TSAsynch -- Internal 

; User-side asynchronous message dispatching function. 

(defun TSAsynch (msg) 

"User-side asynchronous message dispatching function." 
(al1en-b1nd ((al1en-msg msg msg)) 

(case (access-msg-1d (alien-value al1en-msg)) 
(t badmsgld)))) 

User-Alternate-Return — Internal 

User-side alternate return dispatching function. 

(defun user-alternate-return (msg) 

"User-side alternate return dispatching function." 
(al1en-b1nd ((al1en-msg msg msg)) 

(case (access-msg-1d (alien-value al1en-msg)) 
(t badreply)))) 

(export 
'(TS-In1t TSAsynch STSOpen STSOpenWindow STSFullOpen STSFullOpenWIndow 
STSFullLlne STSGetChar STSGetString STSPutChar STSPutStMng STSFlushlnput 
STSFlushOutput STSChangeEnv STSGrabWindow STSPutCharArray)) 

1 1 .2.6. TsMsgDefs.siisp 

This file contains the Accent Lisp message definitions and is for compilation only. 
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-*-L1sp-«- 
Matchmaker generated msg definitions file for TS 

THIS FILE SHOULD NOT BE HAND EDITED 

To change this Interface, edit the Interface matchmaker 
file and run 1t through matchmaker to generate this file. 



(1n-package "TSDEFS") 
(use-package "BUILTINDEFS") 
(use-package "MMINTERNALDEFS") 

(use-package "SAPPHDEFSDEFS") 

(use-package "ACCINTDEFS") 

(defoperator (Msg1ze-to-STSOpen-op msg) ((specific to-STSOpen)) ' 

(al1en-1ndex (alien-value , specific) (bits 0) (bits 304))) 

(defoperator (to-STSOpen-1ze-op to-STSOpen) ((generic msg)) • 

(alien-index (alien-value , generic) (bits 0) (bits 304))) 



(defoperator (to-STSOpen-vp-op port) ((f to-STSOpen)) ' 

(al1en-1ndex (alien-value , f) (bits 208) (bits 32))) 

(defmacro Access-to-STSOpen-vp (r) 

(alien-access (to-STSOpen-vp-op , r) port)) 

(defoperator (to-STSOpen-vp-TypeTypel-op (slgned-byte 32)) ((f to-STSOpen)) ' 
(al1en-1ndex (alien-value , f) (bits 176) (bits 32))) 

(defoperator (to-STSOpen-env-op port) ((f to-STSOpen)) ' 

(al1en-1ndex (alien-value , f) (bits 272) (bits 32))) 

(defmacro Access-to-STSOpen-env (r) 

(alien-access (to-STSOpen-env-op , r) port)) 

(defoperator (to-STSOpen-anv-TypeTypel-op (slgned-byte 32)) ((f to-STSOpen)) ' 
(alien-Index (alien-value , f) (bits 240) (bits 32))) 

(defoperator (Msgize-from-STSOpen-op msg) ((specific from-STSOpen)) • 

(al1en-1ndex (alien-value , specific) (bits 0) (bits 288))) 

(defoperator (from-STS0pen-1ze-op from-STSOpen) > ((generic msg)) ' 

(alien-index (alien-value , generic) (bits 0) (bits 288))) 



(defoperator (from-STSOpen-R_e_s_u_l_t-op port) ((f from-STSOpen)) ' 
(alien-index (alien-value , f) (bits 256) (bits 32))) 

(defmacro Access-from-STSOpen-R_e_s_u_l_t (r) 
i 

(alien-access (from-STSOpen-R_e_s_u_l_t-op , r) port)) 
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(def operator (from-STSOpen-R_e_s_u_l_t-TypeTypeI-op (slgned-byte 32)) 
((f from-STSOpen)) ' 
(alien-index (alien-value , f) (bits 224) (bits 32))) 

(defoperator (Msgize-to-STSOpenWindow-op msg) ((specific to-STSOpenWindow)) * 
(alien-Index (alien-value , specific) (bits 0) (bits 304))) 

(defoperator (to-STSOpenWindow-ize-op to-STSOpenWindow) ((generic msg)) ' 
(alien-index (alien-value , generic) (bits 0) (bits 304))) 



(defoperator (to-STSOpenWindow-w-op port) ((f to-STSOpenW1ndow)) ' 
(alien-index (alien-value , f) (bits 208) (bits 32))) 

(defmacro Access-to-STS0penW1ndow-w (r) 

(alien-access (to-STSOpenWindow-w-op , r) port)) 

(defoperator (to-STS0penW1ndow-w-TypeTypeI-op (slgned-byte 32)) 
((f to-STSOpenWindow)) « 
(alien-Index (alien-value , f) (bits 176) (bits 32))) 

(defoperator (to-STSOpenWIndow-env-op port) ((f to-STSOpenWindow)) • 
(al1en-1ndex (alien-value , f) (bits 272) (bits 32))) 

(defmacro Aceess-to-STSOpenWindow-env (r) 

(alien-access (to-STSOpenWindow-env-op , r) port)) 

(defoperator (to-STSOpenVHndow-env-TypeTypel-op (signed-byte 32)) 
((f to-STSOpe»Window)) ' 
(alien-Index (alien-value , f) (bits 240) (bits 32))) 

(defoperator (Hsg1ze-from-STS0penWindow-op msg) ((specific from-STSOpenWindow)) ' 
(alien-index (alien-value , specific) (bits 0) (bits 288))) 

(defoperator (from-STSOpenWindow-1ze-op from-STSOpenWindow) ((generic msg)) ' 
(alien-index (alien-value , generic) (bits 0) (bits 288))) 



(defoperator (from-STS0penW1ndow-R_e_s_u_l_t-op port) ((f from-STSOpenWindow)) • 
(alien-Index (alien-value , f) (bits 256) (bits 32))) 

(defmacro Access-from-STS0penW1ndow-R_e_s_u_l_t (r) 

(alien-access (from-STS0penWindow-R_e_s_u_1_t-op , r) port)) 
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(defoperator (from-STS0penW1ndow-R_e_s_u_l_t-TypeTypeI-op (slgned-byte 32)) 
((f from-STS0penW1ndow)) ' 
(alien-Index (alien-value , f) (bits 224) (bits 32))) 

(defoperator (Msglze-to-STSFullOpen-op msg) ((specific to-STSFullOpen)) ' 
(alien-index (alien-value , specific) (bits 0) (bits 2480))) 

(defoperator (to-STSFull0pen-1ze-op to-STSFullOpen) ((generic msg)) ' 

(alien-Index (alien-value , generic) (bits 0) (bits 2480))) 



(defoperator (to-STSFullOpen-vp-op port) ((f to-STSFullOpen)) ' 

(al1en-1ndex (alien-value , f) (bits 208) (bits 32))) 

(defmacro Access-to-STSFullOpen-vp (r) 

(alien-access (to-STSFullOpen-vp-op , r) port))- 

(defoperator (to-STSFullOpen-vp-TypeTypel-op (slgned-byte 32)) 
((f to-STSFullOpen)) • 
(alien-Index (alien-value , f) (bits 176) (bits 32))) 

(defoperator (to-STSFullOpen-env-op port) ((f to-STSFullOpen)) ' 

(alien-index (alien-value , f) (bits 272) (bits 32))) 

(defmacro Access-to-STSFullOpen-env (r) 

(alien-access (to-STSFullOpen-env-op , r) port)) 

(riofoperator (to-STSFullOpen-env-TypeTypel-op (slgned-byte 32)) 
((f to-STSFullOpen)) • 
(alien-Index (alien-value . f) (bits 240) (bits 32))) 

(defoperator ( to-STSFullOpen-fontName-op (perq-strlng 265)) ((f to-STSFullOpen)) 
• (al1en-1ndex (alien-value , f) (bits 336) (bits 2048))) 

(defmacro Access-to-STSFullOpen-fontName (r) 

(alien-access (to-STSFullOpen-fontName-op , r) simple-string)) 

(defoperator (to-STSFullOpen-fontName-TypeTypel-op (slgned-byte 32)) 
((f to-STSFullOpen)) ' 
(al1en-1ndex (alien-value , f) (bits 304) (bits 32))) 

(defoperator (to-STSFullOpen-doWrap-op boolean) ((f to-STSFullOpen)) * 
(alien-Index (alien-value , f) (bits 2416) (bits 1))) 



4 September 1984 



MATCI1MAKI-R: THli ACCI-NT R1IM0TI: CALL PROCEDURE. LANGUAGE - 115 

(defmacro Access-to-STSFullOpen-doWrap (r) 
i 

(alien-access (to-STSFullOpen-doWrap-op , r) boolean)) 

(defoperator (to-STSFullOpen-doWrap-TypeTypel-op (slgned-byte 32)) 
((f to-STSFullOpen)) * 
(alien-Index (alien-value , f) (bits 2384) (bits 32))) 

(defoperator (to-STSFull0pen-d1spPages-op (slgned-byte 16)) ((f to-STSFullOpen)) 
* (alien-index (alien-value , f) (bits 2464) (bits 16))) 

(defmacro Access-to-STSFullOpen-dispPages (r) 

(alien-access (to-STSFul!0pen-d1spPages-op , r) (signed-byte 16))) 

(defoperator (to-STSFull0pen-d1spPages-TypeTypeI-op (slgned-byte 32)) 
((f to-STSFullOpen)) • 
(alien-index (alien-value , f) (bits 2432) (bits 32))) 

(defoperator (Msg1ze-f rom-STSFullOpen-op msg) ((specific from-STSFullOpen)) ' 
(alien-index (alien-value , specific) (bits 0) (bits 288))) 

(defoperator (from-STSFullOpen-ize-op from-STSFullOpen) ((generic msg)) * 
(alien-index (alien-value , generic) (bits 0) (bits 288))) 



(defoperator (from-STSFullOpen-R_e_s_u_l_t-op port) ((f from-STSFullOpen)) f 
(alien-index (alien-value , f) (bits 256) (bits 32))) 

(defmacro Access-from-STSFullOpen-R_e_s_u_l_t (r) 

(alien-access (from-STSFull0pen-R_e_3_u_l_t-op , r) port)) 

(defoporator (from-STSFullOpen-R_e_s_u_l_t-TypeTypaI-op (signed-byte 32)) 
((f from-STSFullOpen)) ' 
(alien-index (alien-value , f) (bits 224) (bits 32))) 

(defoparator (Msgize-to-STSFullOpenWindow-op msg) 
((specific to-STSFullOpenWindow)) • 
(alien-index (alien-value , specific) (bits 0) (bits 2430))) 

(defoperator (to-STSFull0penW1ndow-1ze-op to-STSFullOpenWindow) ((generic msg)) • 
(alien-index (alien-value , generic) (bits 0) (bits 2480))) 



(defoperator (to-STSFullOpenWindow-w-op port) ((f to-STSFullOpenWindow)) ' 
(alien-index (alien-value , f) (bits 208) (bits 32))) 

(defmacro Access-to-STSFullOpenWindow-w (r) 

(alien-access (to-STSFullOpenWindow-w-op , r) port)) 

(defoperator (to-STSFullOpenWindow-w-TypeTypel-op (slgned-byte 32)) 
((f to-STSFullOpenWindow)) ' 
(alien-index (alien-value , f) (bits 176) (bits 32))) 

(defoperator (to-STSFul!0penW1ndow-env-op port) ((f to-STSFullOpenW1ndow)) • 
(alien-index (alien-value , f) (bits 272) (bits 32))) 

(defmacro Access-to-STSFullOpenWindow-env (r) 

(alien-access (to-STSFullCpenW1ndow-env-op , r) port)) 
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(defoperator (to-STSFull0penW1ndow-env-TypeTypeI-op (slgned-byte 32)) 
((f to-STSFullOpenWindow)) • 
(al1en-1ndex (alien-value , f) (bits 240) (bits 32))) 

(defoperator (to-STSFullOpenW1ndow-fontName-op (perq-strlng 266)) 
((f to-STSFull0penW1ndo«0) ' 
(al1en-1ndex (alien-value , f) (bits 336) (bits 2048))) 

(defmacro Access-to-STSFull0penW1ndow-fontName (r) 
i 

(alien-access (to-STSFull0penW1ndow-fontName-op , r) simple-string)) 

(defoperator (to-STSFullOpenWindow-fontName-TypeTypel-op (slgned-byte 32)) 
((f to-STSFull0penW1ndow)) • 
(al1en-1ndex <al1en-value , f) (bits 304) (bits 32))) 

(defoperator (to-STSFull0penW1ndow-doWrap-op boolean) ((f to-STSFull0penW1ndow)) 
■ (al1en-1ndex (alien-value , f) (bits 2416) (bits 1))) 

(defmacro Access-to-STSFullOpenWindow-doWrap (r) 

(alien-access (to-STSFull0penW1ndow-doWrap-op , r) boolean)) 

(defoperator (to-STSFull0penW1ndow-doWrap-TypeTypeI-op (slgned-byte 32)) 
((f to-STSFull0penW1ndow)) ' 
(al1en-1ndex (alien-value , f) (bits 2384) (bits 32))) 

(defoperator (to-STSFul!OpenWindow-d1spPages-op (slgned-byte 16)) 
((f to-STSFullOpenWindow)) • 
(al1en-1ndex (alien-value , f) (bits 2464) (bits 16))) 
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(defmacro Access-to-STSFull0penW1ndow-d1spPages (r) 

(alien-access (to-STSFull0penWindow-d1spPages-op , r) (slgned-byte 16))) 

(defoperator (to-STSFull0penW1ndow-dispPages-TypeTypeI-op (slgned-byte 32)) 
((f to-STSFullOpenW1ndow)) ' 
(alien-index (alien-value , f) (bits 2432) (bits 32))) 

(defoperator (Msg1ze-f rom-STSFull0penW1ndow-op msg) 
((specific from-STSFull0penW1ndow)) ' 
(al1en-1ndex (alien-value , specific) (bits 0) (bits 288))) 

(defoperator (from-STSFullOpenW1ndow-1ze-op from-STSFullOpenWindovu) 
((generic msg)) ' 
(alien-index (alien-value , generic) (bits 0) (bits 288))) 



(defoperator (from-STSFull0penW1ndow-R_e_s_u_l_t-op port) 
((f from-STSFull0penW1ndow)) * 
(al1en-1ndex (alien-value , f) (bits 266) (bits 32))) 

(defmacro Access-from-STSFull0penW1ndow-R_e_s_u_l_t (r) 

(alien-access (from-STSFull0penW1ndow-R_e_s_u_l_t-op , r) port)) 

(defoperator (from-STSFullOpenWindow-R_e_s_u_l_t-TypeTypeI-op (slgned-byte 32)) 
((f from-STSFullOpenWIndow)) « 
(alien-Index (alien-value , f) (bits 224) (bits 32))) 

(defoperator (Msglze-to-STSFullLine-op msg) ((specific to-STSFullLine)) ' 
(alien-index (alien-value , specific) (bits 0) (bits 176))) 
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(defoperator (to-STSFullL1ne-1ze-op to-STSFullLine) ((generic msg)) ' 

(alien-Index (alien-value , generic) (bits 0) (bits 176))) 

(defoperator (Msg1ze-f rom-STSFullL1ne-op msg) ((specific from-STSFullUne)) ' 
(alien-Index (alien-value , specific) (bits 0) (bits 272))) 

(defoperator (from-STSFullL1ne-1zo-op f rom-STSFullL1ne) ((generic msg)) ' 
(alien-Index (alien-value , generic) (bits 0) (bits 272))) 



(defoperator (from-STSFullL1ne-R_e_s_u_l_t-op boolean) ((f from-STSFullL1ne)) ' 
(al1en-1ndex (alien-value , f) (bits 256) (bits 1))) 

(defmacro Access-from-STSFullL1ne-R_e_s_u_l_t (r) 

(alien-access (from-STSFullL1ne-R_e_s_u_l_t-op , r) boolean)) 

(defoperator (from-STSFullL1ne-R_e_s_u_l_t-TypeTypeI-op (slgned-byte 32)) 
((f from-STSFullL1ne)) ' 
(al1en-1ndex (alien-value , f) (bits 224) (bits 32))) 

(defoperator (Msgize-to-STSGetChar-op msg) ((specific to-STSGatChar)) • 
(alien-index (alien-value , specific) (bits 0) (bits 176))) 

(defoperator (to-STSGetChar-lze-op to-STSGetChar) ((generic msg)) ' 

(al1en-1ndex (alien-value , generic) (bits 0) (bits 176))) 

(defoperator (Msg1ze-from-STSGetChar-op msg) ((specific from-STSGotChar)) • 
(alien-Index (alien-value , specific) (bits 0) (bits 272))) 

(defoperator (from-STSGetChar-1ze-op from-STSGetChar) ((generic msg)) • 
(alien-index (alien-value , generic) (bits 0) (bits 272))) 



(defoperator (from-STSGetChar-R_e_s_u_l_t-op string-char) ((f from-STSGetChar)) ' 
(alien-Index (alien-value , f) (bits 256) (bits 8))) 

(defmacro Access-from-STSGetChar-R_e_s_u_l_t (r) 

(alien-access (from-STSGetChar-R_e_s_u_l_t-op , r) string-char)) 

(defoperator (from-STSGetChar-R_e_s u_l_t-TypeTypeI-op (slgned-byte 32)) 
((f from-STSGetChar)) ~ 
(al1en-1ndex (alien-value , f) (bits 224) (bits 32))) 

(defoperator (Msg1ze-to-STSGetStr1ng-op msg) ((specific to-STSGetStr1ng)) * 
(alien-index (alien-value , specific) (bits 0) (bits 176))) 

(defoperator (to-STSGetStr1ng-1ze-op to-STSGetStr1ng) ((generic msg)) ' 
(al1en-1ndex (alien-value , generic) (bits 0) (bits 176))) 

(defoperator (Msglze-from-STSGetString-op msg) ((specific from-STSGotStrlng)) ' 
(alien-Index (alien-value , specific) (bits 0) (bits 2304))) 

(defoperator (from-STSGetStr1ng-1ze-op from-STSGetStrlng) ((generic msg)) ' 
(al1en-1ndex (^li^B^value , generic) (bits 0) (bits 2304))) 
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